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FOREWORD 


If you’ve never programmed a computer before, and you'd like to be able 
to program your IBM PC in just a few hours, then this book was written 
for you. 

I guess you buy most, if not all, of the software you run on your 

IBM PC. . 
Despite this, you’ve probably realized that it would be good to know 
at least a little about programming, so you can impress your friends, in- 
struct your kids, and create your own utility and games programs. This 
book will show you how to do this in just a matter of hours. 

For a start, you’ll learn just how few commands are needed to work 
the disk system so your computer will be up and running—under your 
control—in less than a minute after you start reading the first page of 
chapter one. 

You’ll find out the most important words for programming, and— 
once you’ve worked through the book—you’ll have a library of interest- 
ing programs to keep you, and your IBM PC, occupied for weeks to come. 





Tim Hartnell 
London, 1983 


CHAPTER ONE 


(setting 
Started 





You've bought a great computer, and this book will show you how to get 
the most out of it, quickly and easily. 

In this book, I'll assume this is the first time you’ve learned to pro- 
gram, and that the IBM PC is the first computer you have handled. 
Therefore, if I start talking about material you already know, just skip 
over that section. 


INSTANT DOS 


DOS stands for Disk Operating System. Before you turn the comput- 
er on, make sure the disk which came from the folder marked DOS is in 
the left-hand disk drive. This is called drive A. If you only have one disk 
drive, put the DOS disk in there. From now on, if you have only one disk 
drive, you'll know when I refer to drive A I mean the one drive you have. 

Turn the computer on. After a few seconds, a beep, and some whir- 
ring, the computer will ask you to enter the date. Ignore this. Instead, 
you press the RETURN key. Now you'll find this key by counting back 
from the right-hand side of the keyboard five lines, and the second key 
down from the top. You'll see it has an arrow with a little “leg” on it. This 
is the RETURN key, and it is the most important key on the keyboard. 
You need to press RETURN whenever you want the computer to take no- 
tice of anything you've typed in. 

When you press RETURN, the computer will ask you to enter the 
time. Ignore this as well, and press RETURN again. Now you should see 
this at the bottom of all the writing on the screen: 


A> 


This means that it is ready to follow your instructions with disk 
l 








drive A. Type in the word BASIC (and it can be in capital or small let- 
ters, as you choose) and then press the RETURN key. 


There will be more clanking from the disk drive, and then a few 


THE IBM PERSONAL COMPUTE 
VERSION D1L-10 COPYRIGHT 


196e 
YOUSIT BYTES FREE 


OK 











This book will assume you are in BASIC from now on. You'll have 
to go through those steps whenever you want to enter one of the pro- 


grams in this book. 


SAVING PROGRAMS 


You need to know how to save programs on disk, and how to get 


them back. It is very simple. You take the DOS disk out of drive A, and 
replace it with a blank, formatted disk. We’ll be showing you how to for- 


mat disks in due course, but assume for the moment that you have a for- 
matted disk ready. 


Your program is in the computer. You put the disk in Drive A, and 
then type in: 


SAVE ""NNNN 


You need to put the name of the program—CHECKERS, or whatev- 
er—in place of the nnnn. Note that there is an opening quote mark after 


the space following the word SAVE. Now, press RETURN and the light 
on the disk drive will glow red for a few seconds, there’ll be a little sound 


as the disk rotates, and then the message OK will appear. Your program 
is now saved onto the disk. 


GETTING IT BACK 
When you want to get the program back, you just type in: 


LOAD '*NNNN 





Make sure the nnnn is the same as the name under which you saved the 


program. There will be another little song and dance from the disk drive, 
and then another message OK will let you know the program is ready to 


run. Then, all you need to do is type in the word RUN, and press the RE- 
TURN key, and the program will run. 
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NAMING YOUR PROGRAMS 


The IBM PC is very tolerant of the procedure you use to assign 
names to files on disk. Although it expects a name of up to eight letters, 
followed by a period (.) and then an “extension” (as it is known) of up to 


three letters, you can actually be pretty haphazard in your naming, and 
the computer will sort it out. 


What is really expects is a file name like: 


CHECKERS -123 


In this name, CHECKERS is the eight-letter name, followed by the peri- 
od, and 123 is the extension. 


However, as I said, you can get away with a far less disciplined ap- 
proach than this. 


For example, if you typed in SAVE “ENCYCLOPEDIA the comput- 
er would obediently save it, even though that name did not fit the rules. 
If you then type in FILES and press RETURN, the IBM PC will then 
print up on the screen the name of every single program it has saved on 
the disk. You use the command FILES when you’ve forgotten what name 


you used to save a program, or you just want to check what is on a disk. 
When you typed in FILES to find out what the computer had done 
with SAVE “ENCYCLOPEDIA you'd discover it had saved it as: 


ENCYCLOP-EDI 





In other words, it had taken what it needed to create an eight-letter 
name and a three-letter extension. To get it back, all you’d need to do is 


type in LOAD “ENCYCLOP.EDI if you knew that’s what it had saved it 


under. 
But the IBM PC is very tolerant. Any of the following will work: 


LOAD ''ENCYCLOPEDIA 
LOAD ''ENCYCLOP-EDI 
LOAD ''ENCYCLOPEDI 


The simplest way to approach it is to LOAD programs back using 
the name you SAVEd them under, and let the computer work it out for 


you. 


BACK IN THE SYSTEM 


When, shortly after you’ve turned your computer on, you get the 
A> on the screen, the IBM PC is in what is known as “system mode.” 
You need to be in this to format disks, and your disks must be formatted 


before you can save your programs onto them. 
To get back into system mode from BASIC, just type in SYSTEM 


and then press RETURN. Following the customary whirring and red 
light, the A> will reappear, and you'll be back in system mode. 





INSTANT FORMATTING 


The computer actually does most of the work for you at this point. 
Make sure your DOS disk is in drive A. Type in FORMAT and hit return. 


The computer will then come up with the following instructions: 


INSERT NEW DISKETTE FOR DRIVE A: 
AND STRIKE ANY KEY WHEN READY 


Just follow these instructions, and the IBM PC will get to work. 
Eventually, a message like the following will appear on the screen: 


FORMATTING --- FORMAT COMPLETE 


322560 BYTES TOTAL DISK SPACE 
322560 BYTES AVAILABLE ON DISK 


FORMAT ANOTHER (Y/N)? 











If you do not want to format any more disks, just press the N key, 
and the computer is ready for you again. To return to BASIC, take your 
formatted disk out of drive A, reinsert the DOS disk, type in BASIC, and 
hit RETURN. Once you’re in BASIC, take the DOS disk out, and replace 
it with your newly formatted disk, so you can save your programs on it. 
Do not format a disk which already has material on it, or you'll lose it all. 
Formatting wipes everything which was on a disk, programs and all. 


OTHER USEFUL WORDS 


You now know all you need to in order to be able to get your IBM 
PC up and running. However, there are some other disk-handling com- 
mands which are quite useful to know, so I thought I’d put them here, so 
you'll have aready reference to them. You should find it more convenient 
to have them here, spelled out for you, rather than having to wade 
through the DOS manual trying to work out what you need to do. 





Diskcopy A: B: 


This command copies everything on disk A onto disk B (incidentally 
wiping everything which was already on disk B) 





Diskcomp A: B: 


Once you've made a copy, you can check it by using this “disk com- 
pare” command 


Dir 


This stands for “directory” and is used when you’re in system mode 


to find out what is on a disk. Just type in DIR and press RETURN and 


the name of every file on the disk will appear on the screen. When you’re 
in BASIC, just types in FILES to get the same result 





Erase 


You use this command to get rid of a file you don’t want from a disk. 
When youre in system mode, you just enter ERASE “NAMEOFFIL with 
the name of the file following the quote mark, much as if you were load- 


ing or saving. The equivalent in BASIC is KILL, as in KILL “NAMEOF- 
.FIL which does the same thing 





Copy A: Nameone B: Nametwo 


This copies a program called NAMEONE from disk A onto disk B, 
and calls it NAMETWO 





Copy Nameone Nametwo 


This copies a program on disk A called NAMEONE onto disk A 
again under the name NAMETWO. The first program is not wiped 





Rename Nameone Nametwo 


This changes the name of a file called NAMEONE on drive A into a 
file called NAMETWO. You can no longer get the file by calling up NA- 
MEONE which has ceased to exist. The equivalent command when in 


BASIC is NAME. 





Now that we’ve successfully forded that difficult stream, we can get 
on with the real fun, learning to program. 


CHAPTER TWO 





We start learning to program using the most commonly used command 


in BASIC, the word PRINT. 
Type the following on your computer: 


PRINT ce 


Until you press the RETURN key, the computer will do nothing. Speci- 
fially, at this point, it will ignore the command PRINT 2. Press RETURN 


now, and you should see the number 2 appear underneath the words 
PRINT 2. This is the way PRINT works. It takes the information which 
follows the command PRINT, with a few exceptions which we'll learn 
about shortly, and PRINTs this on the screen which 1s, after all, exactly 
what you'd expect it to do. 

But your computer is not completely stupid. That is, it can do more 
than just blindly print what you tell it to. If the word PRINT is followed 
by a sum, it will work it out before printing, and give you the result. Try 
it now. Enter the following line, then press RETURN: 


PRINTS +3 


You should see the figure 8 appear. The computer added 5 and 3 
together, as instructed by the plus (+) sign, then printed the result on 
the screen. It can do subtraction as well (clever inventions, these comput- 


ers). Type in this, and press RETURN to see subtraction (and PRINT) at 
work: 





PRINT ? -e 


Now the computer can—of course—carry out a wide range of mathe- 
matical tasks, many of them far more sophisticated than simple addition 
and subtraction. But there is a slight hitch. When it comes to multiplica- 
tion, the computer does not use the x symbol you probably used at school. 
Instead, it uses an asterisk (*) and for division the computer uses a slash 


(/). 





DOING MORE THAN ONE THING AT ONCE 


The computer is not limited to a single operation in a PRINT state- 
ment. You can combine as many as you like. Try the next one, which 
combines a multiplication and a division. Type it in, then press RETURN 
to see the computer evaluate it: 


PRINT Sx3/e 


This seems pretty simple. Just type in the word PRINT, follow it 
with the information you want the computer to print, and that’s all there 
is to it. But it is not quite as simple as that! Try the next one and see 
what happens: 


PRINT TESTING 





That doesn’t look too good. Instead of the word testing we've got a 
zero. The computer thought we wanted a “variable,” rather than the 
word testing. We won’t try to explain the meaning of the word variable at 
this point (it’s not on the curriculum for this chapter), but it means sim- 
ply that the computer thought you wanted to print a number which had 
the name testing. Foolish machine. Computers may be very, very clever 
machines, but they need to be led by the hand, like a very stupid child, 
and told exactly what to do. Give them the right instructions and they 
will carry them out tirelessly and perfectly, without an error. But give 
them incorrect instructions, or—even worse—confuse them, and they 
give up in despair, or do something quite alien to your intentions. 


STRINGS 
If you want the computer to print the word testing, you must put 
quotation marks around the words, like this: 


PRINT ""TESTING* * 


This time when you press the RETURN key, the word testing will 
appear at the top of the screen. This is worth remembering. When you 
want the computer to print out some words, or a combination of words, 
symbols, spaces and numbers, you need to put quotation marks around 


q 








the material you want to print. Information held in this way between 


quotation marks is called a most peculiar name in computer circles. The 
jargon for the information enclosed in quotation marks is string. So, in 
our example above, the word testing, when enclosed in quotation marks, 
is a string. You can, in fact, get away with just the first quotation mark 


so the line reads PRINT “testing, but this is not good practice. 


OUR FIRST PROGRAM 


Type the following into your computer. Notice that each line starts 
with a number. Type this into the computer, and follow this with the oth- 


er material. 


10 PRINT ''JACK AND JILL** 


Type in the next line, the one starting with 20, and press RETURN 
once you have it in place. Do the same with the rest of the lines: 


CO PRINT ''WENT UP THE HILL‘ 
JO PRINT ''TOFETCHA PAIL'* 
4YO PRINT ''OF WATER® * 


When you run this you'll see the following (if all 1s well): 








ADDING NEW LINES 


The computer, clever beast that it is, allows you to enter your lines 
in any order you choose. It will then sort them into order for you. Al- 
though our first program, and most of the other ones in this book, are 
numbered in 10’s, starting at 10, there is no particular reason why you 
should follow this convention if you do not want to. However, there is a 
reason for leaving “gaps” in the counting. Although our first program 
could easily be numbered in 1’s, it would leave no room to add later lines, 
if we decided there was a need to do so. 


To see the computer sorting lines into order, add the following: 


CS REMALINE IN THE MIDDLE 


Now type in LIST, to get the computer to list out the current program it 
is holding, and you'll see line 25 neatly in its proper numerical place. 
Now, run the program again. You should find that line 25 made no differ- 
ence at all to it. 
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MAKING REMARKS 


Why did the computer decide to ignore line 25? The word REM 
stands for remark, and is used within programs when we want to include 
information for a human being reading the program listing. You’l] find 
REM statements scattered throughout the programs.in this book. In each 
and every case, the computer ignores the REM statements. They are only 
there for your convenience, for the convenience of the programmer, or of 
someone else reading the program. 

Often you'll use REM statements at the beginning of the program, 
like this one: 


Ss REM JACK AND JILL POEM 





You may wonder why this would be necessary. After all, it is pretty 
obvious that the computer is holding a “Jack and Jill poem,” even with- 
out the line 5 REM statement. You are right. In this case, there is little 
point in adding a title REM statement to this program. But have a look 
at some of the more complicated programs a little further on in this book. 
Without REM statements you'd have a pretty difficult time trying to 
work out what the program was supposed to do. 

REM statements are often scattered throughout programs. They 
serve to remind programmers what each section of the program is sup- 
posed to do. Once you’ve been programming a while, you’ll be amazed at 
how many programs you'll collect in listing form which—when you go 
back to them in a month or two—will seem totally obscure. You won’t 
have a clue how the program works, or even more important, what on 
earth it 1s, or what it is supposed to do. This 1s where you'll find REM 
statements invaluable. 

It is worth getting into good habits early as a programmer. So I sug- 
gest you start right now adding REM statements to programs. If you 
come across programs, or program fragments, in this book which you 
want to keep, and which do not have REM statements, get into the habit 
of using them by adding REM statements to these programs. And make 
sure you use them in your original programs. Note that if you add a re- 
mark to the end of another program line, you do not need to spell the 
statement REM out, but can substitute the apostrophe (’) for it. 





BACK TO PRINT 


Let’s return to the subject of the PRINT command. Empty your 
computer’s memory by entering NEW and then pressing RETURN. Type 
the following program into your computer and run it: 


10 PRINT hae 
L5 PRINT 
CO PRINT 15253 
eS PRINT 











30 RI "'"COMPUTER' ' 

35 RI 

uO RI rrog+ 34 =''523 + 34 

US RI 

SO RINT 2x3 

SS RI 

LO RINT 3°5 

LS RINT 

70 RINT ''THE ANSWER IS ''4523 +5 — ?/b 


There is a lot we can learn from this program. 

First, as in the Jack and Jill program, the computer executes a pro- 
gram line by line, starting at the lowest numbered one and proceeding 
through the line numbers in order until it runs out of numbers, when it 
stops. (You’ll discover that this orderly progression of line numbers does 
not always apply, as there are ways of making the computer execute 
parts of a program out of strict numerical order, but for the time being it 
is best to assume that the program will be executed in order.) 

Look first to line 10 of your program. You can see that there 1s a 
comma between the 1 and the 2. This has the effect of making the com- 
puter print the numbers with a wide space between them. The comma 
can be used in this way to space out numbers neatly for a table of results 
or a similar purpose. (Try PRINT 1,,2 and see what effect this has.) When 
you use a comma in this way, to separate the things which follow a 
PRINT statement (but not when the comma is inside a string, that is, 
between quotation marks) you'll find it divides the screen up into neat 
little columns. Try PRINT 1,2,3 and see the result of the commas. Then 
you can try the effect of PRINT 1,,,2,,,3,,,4,,,5,,,6,,,7,,,8,,,9,,,0 to make it 
perfectly clear what is going on. 

The second line of the program, 15, is just the word PRINT with 
nothing following it. This has the effect, as you can see in the display on 
your screen, of putting a blank line between those lines which include 
material after the word PRINT. The same comment, of course, applies to 
lines 25, 35, 45, 55, and 65. 

Line 20 has three numbers (1, 2, and 3) separated not by commas 
(as in line 10) but by semicolons (;). Instead of separating the output of 
the numbers as the comma did, you'!! see that it causes them to be print- 
ed with a single space on either side of them. When printed, numbers are 
always followed by a space. Positive numbers are also preceded by a 
space. You use the semicolon when you want printed material to follow 
other printed material without a break. 

Line 30 is a word, and this is a.... If you mentally said “string” 
when you came to those dots, then you’re learning well. This word is a 
string, In computer terms, because it is enclosed within quotation marks. 

Line 40 is rather interesting. For the first time we have included 
numbers and a symbol (=) within a string. As you can see the computer 
prints exactly what is within the quotation marks, but works out the re- 
sult of the calculation for the material outside the quotation marks, giv- 
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ing—in this case—the result of adding 23 to 24. Try to remember that 
the computer considers everything within the quotation marks as words, 
even if it is made of numbers, symbols, or even just spaces, or any combi- 
nation of them, while it counts everything that is not within quotes in a 
PRINT statement as a number. This is why it got so upset earlier when 
we told it to print the word testing without putting the word in quotation 
marks. It looked for a number which was called testing, and because it 
could not find one (as we had not told the computer to let testing equal 
some numerical value), it refused to cooperate. 

So line 40 treats the first part, within quotation marks, as a string, 
and the second part, outside quotation marks, as numerical information, 
which the computer processed. 

In line 50 we see the asterisk (*) used to represent multiplication 
and the computer quite reasonably works out what 2 times 3 is and 
prints the answer 6. In line 60 we come across a new and strange sign, ~ 
This means “raise to the power,” so line 60 means print the result of 3 
raised to the fifth power. In ordinary arithmetic, we indicate this by put- 
ting the 5 up in the air beside the three. However, it is pretty difficult for 
a computer to print a number halfway up the mast of another number, so 
we use the * symbol to remind us (by pointing upward) that it really 
means ‘print the second number up in the air.” 

The final line of this program combines a string (“The answer is”) 
with numerical information (23 + 5 — 7/6). You can see that, as expect- 
ed, the computer works out the sum before printing the answer, and 
prints the string exactly as it is. Look closely at the end of the string. 
You'll see there is a space there. After the closing quote there is a semico- 
lon which, as we learned in line 20, joins various elements of a PRINT 
statement together. This semicolon means that the result of the calcula- 
tion is printed up next to the end of the string. 

This brings us to the end of the second chapter of the book. I’m sure 
you ll be pleased at how much you've learned so far and are looking for- 
ward to continuing your learning. But now you've earned a break. So 
take that break and then come back to the book to tackle the third chap- 
ter. 
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CHAPTER THREE 





Ringing tne 
(Changes 





It’s all very well getting things onto the computer’s screen as we learned 
to do in the last chapter, but from time to time you'll discover we need to 
be able to get printed material off the screen during a program, to make 
way for more PRINT statements. We do this with a command called CLS, 
for Clear the Screen. 





CLEAR THAT SCREEN 


Enter the following program into your computer and run it: 


L0 PRINT ''TESTING*® 
CU INPUT AS 
30 CLS 


When you run the program, you'll see the word “testing” appear at 
the top of the screen, more or less as you’d expect. However, below it 
you ll see a question mark. Where did that come from? The question 
mark is known as an input prompt. An input prompt, which appears in a 
program when the computer comes to the word INPUT, means the com- 
puter is waiting for you to enter something else into the machine, or just 
to press RETURN. You'll recall that we spoke earlier about strings, and 
about how they were anything which was enclosed within quotation 
marks. In line 20 above the computer is waiting for a string input (be- 
cause the A which follows the word INPUT is, in turn, followed by a dol- 
lar sign). You can enter a word, a number, or any combination of words, 
numbers, and/or symbols in response to a string input. (But you can only 
type in a number in response to a numerical input. If you just press the 
RETURN key when the computer wants a number, the computer will as- 
sume you want zero). 
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Anyway, when you respond to the input prompt by pressing RE- 
TURN, you'll see the screen clears and the word testing disappears. 
Where did it go? We pointed out that the computer works through a pro- 
gram in line order. First the program printed testing on the screen with 
line 10 and then progressed to line 20, where it waited for an input (or for 
you to press RETURN). Once you’ve done this in line 20, the computer 
moved along to line 30 where it found CLS and obeyed that instruction. 
The instruction was to clear the screen, so the computer did just that and 
the screen cleared. 

Run the program a few times, until you’ve got a pretty good idea of 
what is happening, and you’ve followed through—in your mind—the se- 
quence of steps the computer is executing. 





DOING IT AUTOMATICALLY 


Instead of waiting for you to press the RETURN key, you can write 
a program which clears the screen automatically, as our next example 
demonstrates. Enter this next program into your computer, type in RUN 
and then ENTER (or just press the F2, function 2, key which has exactly 
the same effect), and then sit back for the Amazing Flashing Word dem- 
onstration. Note that you must have spaces on either side of words like 
FOR and TO. 


LO 
c 





J 0° in © J 
Oocgaoananm 


Run this program, and you'll see the word autotesting flashing off 
and on at the top of the screen. What is happening here? Let’s look at the 
program and go through it line by line. First, as you know, line 10 prints 
the word autotesting at the top of the screen. Next, the computer comes to 
line 20, where it meets the word FOR. We'll be learning about FOR/ 
NEXT loops (as they are called) it detail in a later chapter, but all you 
need to know here is that the computer uses FOR/NEXT loops for count- 
ing. In this program, lines 20 and 30 (the FOR is in line 20, the NEXT in 
line 30) tell the computer to count from one to 500 before moving on. 

To stop the program, press and hold down the CTRL key and then 
press the SCROLL LOCK key, keeping both keys down. 

So, the computer waits for a moment while counting from one to 
500. Then it comes to line 40, which is the command CLS, which tells the 
computer to clear the screen. The computer then encounters, in lines 50 
and 60, another FOR/NEXT loop, so waits a while as it counts from one 
to 500 again. Continuing on in sequence, it comes to 70 where it finds the 
instruction GOTO 10. This, as is immediately obvious, tells the computer 


lJ 








to go to line number 10. When the computer gets to line 70, it obeys the 
GOTO instruction, and starts over from line 10, going through the auto- 
testing printing, counting to 500, clearing the screen, counting to 500 
again, and then coming to GOTO 10 so that it starts all over again. 


CHANGING PROGRAM LINES EASILY 


Your computer is provided with an EDIT function which makes it 
very simple to change the contents of lines within programs. Get rid of 
the current program by typing the word NEW and then pressing the RE- 
TURN key. Then enter the following program into your computer. Do not 
run the program. I want to explain something about it before you do. 


10 REMANEDIT TEST 
CO PRINT’ "TEST AGAIN'® 
JO PRINT '"AND AGAIN'' 





If you want to alter lines which are on the screen, all you have to do 
is use the 8, 4, 6, and 2 keys to the right of the main keyboard, to move 
the cursor to the required position, then make the desired changes. 

It is a little different when you want to change lines which are not 
currently on the screen. If you wanted to change, say, line 10, all you’d 
need to do would be to enter EDIT 10, followed by the RETURN key, and 
line 10 would be reprinted below the rest of the listing. Now, have a look 
at the numbers 1 to 9 which are arranged like the keys of a calculator to 
the right of the letter keys. As I mentioned in the previous paragraph, 
the keys for 8, 4, 6, and 2 have little arrows on them. If you press the 6 
key, you'll see the little flashing underline mark (called the “cursor”) 
which follows you around as you are typing, start to move across the line. 
If you wanted to add an extra word between “an” and “test,” you would 
move the cursor across until it was in the space between the words, and 
then press the key marked with a zero and the letters INS (for Insert) 
before you type in the new word. Try it now, adding the word “exciting” 
before the word “edit,” so that your line looks like this: 


LO REM ANEXCITING EDIT TEST 


Then, press the RETURN key again, then type in LIST (or press 
function key 1, which has the same effect as typing in LIST) and press 
RETURN again. This time, when the program is listed, you’ll see that 
the new version of line 10 is included within the program. 

That was simple, wasn’t it? It is just as easy to delete a word, or 
letter, as it is to add one. Type in EDIT 20, and once the line appears on 
the screen, use the 6 key to position the cursor where you want it. Now 
press the DEL (for delete) key, to erase the letters you wish to remove. 

If you only have a letter or two wrong within a line, you just move 
the cursor to the error and then type in the correct letter or letters. These 
will automatically replace the incorrect material. 
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If you want to wipe out an entire line, while you are entering it, just 
press the ESC (for escape) key, which is the third key across in the top 
right-hand corner. If you want to get rid of the rest of the line, simulta- 
neously press the CTRL key and the 1 key (in the numeric keypad layout 
to the right of the keyboard), which is marked END, and the rest of the 
line will vanish. 

Now these instructions may seem a little complex, and they certain- 
ly do not need to be mastered before you can continue your learning. If 
youre not sure how a particular line should be edited, and you can’t be 
bothered looking it up in your BASIC folder, or in this book, just type the 
whole line again, and when you press RETURN the new line will auto- 
matically take the place of the old one within the listing. 


GETTING THE PROGRAM BACK 


If you want to see a complete listing after it has vanished once a 
program has been run, all you need to do (as we mentioned briefly a little 
earlier) is to type in the word LIST, then press the RETURN key. Then 
the whole program listing will appear on the screen. 

Another way of doing this is to press the key marked F1 in the ex- 
treme top right-hand corner of the keyboard. This stands for “function 
one.” The function keys are preprogrammed on the IBM PC to make it 
simple to access often used commands. The first five are the most useful. 
These are: 


1 LIST 
2 RUN 
3 LOAD 
4 SAVE 
o9 CONT 


It is pretty obvious what they stand for, and they can save a little 
time when you re programming on your computer. I suggest you copy out 
the names of these five, with their corresponding numbers, on a little 
strip of paper, and place this strip above that raised area above the keys. 
Then you'll know without hestitation what they stand for. You'll proba- 
bly find, as I have, that a list placed on the computer as I’ve suggested is 
much simpler to read than are the inverse words at the bottom of the 
screen. 

There is no reason, when using list, why you must list from the top 
of the program. When you have longer programs, you may well want to 
list only part of them. You do this by use of the hyphen (-) as follows: 


-LIST-100 —‘ This lists up to and including line 100 
LIST 50-90 This lists lines 50 to 90 


LIST 150- This lists the program from line 150 to the end 
LIST 270 _—— This lists just line 270 





USING THE PRINTER 


Full instructions on printer use come, of course, with the printer, 
but if you prefer not to bother with them at the moment, and you Just 
want your printer to work, these are the commands you'll need: 





WIDTH #1, 40 to set the printer width to 40 columns 


LLIST to list the current program 
PrtSc just press this key to dump the full contents of the 
screen 


LLIST is easy to remember, as it is very similar to LIST and has a 
similar function, except that it lists to the printer rather than listing to 
the screen. LLIST can be used in the same way you LIST to get just parts 
of a listing (so LLIST 40 - 70 is valid). 
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CHAPTER FOUR 


Lyescent into 
Cohaos 


It’s time now to start developing some real programs. You’!l notice that 
from this point on in the book there are some rather lengthy programs. 
Many of them will contain words from the BASIC programming lan- 
guage which have not been explained. This is because, as programs be- 
come more complex (and far more satisfying to run) it becomes more and 
more difficult to keep words which have not been explained out of the 
programs. However, this is not a major problem, and you'll probably be 
able to work out what many of them mean, just from seeing them in the 
context of a program line. 

We are working methodically through the commands available on 
the computer, and in due course, all of the important ones will be cov- 
ered. When you come across a word in a program which seems unfamil- 
lar, just type it in. You'll find that you'll soon start picking up the 
meaning of words which have not been explained, just by seeing how 
they are used within the program. So if you find a new word, don’t worry. 
The program will work perfectly without you knowing what the word is, 
and investigating the listing after you’ve seen the program running is 
likely to lead you to work out what it means. 








RANDOM EVENTS 


In the world of nature, as opposed to the manufactured world of 
men, randomness appears to be at the heart of many events. The number 
of birds visible in the sky at any one time, the fact that it rained yester- 
day and may rain again today, the number of trees growing on one side of 
a particular mountain, all appear to be somewhat random. Of course, we 
can predict with some degree of certainty whether or not it will rain, but 
the success of our predictions appears to be somewhat random as well. 

When you toss a coin in the air, whether it lands heads or tails de- 
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pends on chance. The same holds true when you throw a six-sided die 
down onto a table. Whether it lands with the one, the three, or the six 


showing depends on random factors. 
Your computer’s ability to generate random numbers is very useful 


in order to get the computer to imitate the random events of the real 
world. The BASIC word RND lies at the heart of using this means of gen- 


erating random numbers. 


GENERATING RANDOM NUMBERS 


We’ll start by using RND just as it is to create some random num- 
bers. Enter the following program, and run it for a while: 


10 PRINT RRND; 
°060T9 10 


When you do, you’ll see a list of numbers like these appear on the screen: 


-b2Tlbeb -194829? -6305799 -8b257449 - ?3b353 
-49076b439 -1619371 -134104 -b999b4 -49ed016b 
~-590765] -88b6499e -136b40e -b51b87b -c4LbI4? 





As you can see, RND generates numbers randomly between zero and one. 
If you leave it running, it will go on and on, apparently forever, writing 
up new random numbers on the screen. 

Now random numbers between zero and one are of limited interest 
if we want to generate the numbers and get them to stand for something 
else. For example, if we could generate 1’s and 2’s randomly, we could 
call the 1’s heads and the 2’s tails and use the computer as a kind of “elec- 
tronic coin.” If we could get it to produce whole numbers between one and 
six, we could use the computer as an imitation six-sided die. 


Fortunately, there is a way to do this. Enter the next program and 
run it: 


L0 PRINT INT(RND*B6) + 15 
C0 GOTO 10 


When you run this program, you'll get a series of numbers chosen at ran- 
dom between 1 and 6, like these: 





He4¥b 5S bB1Y bt 14153534341 4 & 
ec lbilbbedx 3g 2 SHdee S 
Jews 5314641451436 6 21 6 
4L15e b 5 14135 § 3b 5 2 


| Even though we could create vast series of numbers between 1 and 
2 with a program like this, it is not particulary interesting. And, if you 
ran the program over and over again, you'd find that the sequence of 
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numbers was starting to look very familiar. The random numbers, as 
you'd discover if you ran the program a number of times, are not really 
random at all. 

This is because the computer does not really generate random num- 
bers, but only looks as if it is doing so. Inside its electronic head, your 
IBM PC holds a long, long list of numbers, which it prints in order when 
asked for random numbers. The list is so long, that it is impossible to see 
a pattern in it, once it is running. However, the series always appears to 
start at the same place, and in most programs, this is not good enough. 





SEEDING THE RANDOM NUMBER GENERATOR 


Fortunately for us, there is a way to get the computer to choose a 
different spot within the list of numbers each time you run the program, 
so that the numbers it generates are more nearly random. 

The key word for this is RANDOMIZE. It chooses a random starting 
spot for the list of numbers. We can use RANDOMIZE in two ways: 

1. By asking the program user to enter a “seed” for RANDOMIZE 
(the seed is a number which is used within the program in the form RAN- 
DOMIZE, n; the same seed always produces the same sequence of “ran- 
dom” numbers). 

2. By getting the computer to do the seeding itself. This is the 
most satisfactory way to do it. I prefer to do this by taking the value of 
the second which is being recorded by the IBM PC’s internal clock. This 
is easy to do, although the line you use for this looks very complicated. 
Here it is: 


RANDOMIZE VAL(RIGHTS(TIMNESS 4 2)) 





As I warned you, it looks pretty complicated. Don’t worry about 
that, you can use it without being able to understand it (although, if you 
must know, it turns the value of the seconds, the two rightmost elements 
of the string TIME$ into a number using VAL and then uses this to seed 
the random number generator). Whenever you need random numbers in 
a program, just include this line near the start of the program to ensure 
that the program is not predictable. 


FAST FOOD CRAZINESS 


We'll look now at the result of seeding the random number genera- 
tor manually with our next program, which makes an interesting use of 
the computer’s ability to generate random numbers. As you can see, it 
creates a scene where you have turned up at a fast food outlet, desperate 
for something to eat, and you’ve decided to let the random number gener- 
ator pick your food for you: 


L0 REM FAST FOOD 
e0U CLS 
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460 I 


40 
LOO 
110 GOTO 30 


When you run this, you’ll get something like this list of food on the 
screen: 














= 
nEeuxrm 
Omempm 


D 
D 
D 
D 
D 
D 





“4a >-iIP PY 
—s 


E 
E 
E 
E 
E 
E 


A AAAA A 





YOU'VE ORDERED A HANBURGER WITH EVERYTHING 





When you look back at the listing, you’ll see how the program sets 
the letter A to the value of the random number in line 30. In this case, 
the letter A is standing for a number. It is called a variable, or (because 
in this case it stands for a number), it is called a numeric variable. In 
computer jargon, we say that, in line 30, the computer has assigned the 
value of the random number to the variable A. And, as you can see in 
lines 50, 60, 70, and 80, the value assigned to A determines which food 


order you place. Read this over again if it seems incomprehensible the 
first time. 


PLANTING A SEED 


Now, we are going to modify the program so it reads like the follow- 
ing listing: 







- OOD 

a 1 Na RANDOMIZE SEED ''4S8 
= (RND*4) + 1, 

uO OU'VE ORDERED ° "5 
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50 THEN PRINT ""A HAMBURGER WITH 
b0 THING PRINT ""A LARGE FRENCH 
70 3 THEN PRINT ''A SERVING OF 
4U THEN PRINT "'TWO HOT DOGS WITH 
40 To SOO:NEXT Z 

LO00 





110 GOTO 30 


When you run this, the computer will stop and the words ENTER 
RANDOMIZE SEED will appear at the top of the screen. This is an input 
prompt. When you place words in quotation marks after the word IN- 
PUT, these words appear on the screen to tell you precisely the input the 
computer is expecting. You can enter any number you like when prompt- 
ed, and this number will be used to seed the random number generator. 
You'll soon learn which number to enter to get the food you like. (Note 
that there is comma after the close quotes following the word SEED. If 
this comma, were replaced with a semicolon, a question mark would be 
printed. You can therefore put a semicolon after an INPUT prompt if you 
want a question mark, or a comma if you do not.) 

The screen looks like this when the program is running, with the 
random number generated by line 30 printed by line 35. 


ENTER RANDOMIZE SEED bY : 


YOU'VE ORDERED A SERVING OF Rare 


YOU'VE ORDERED TWO HOT DOGS onl KETCHUP 


YOU'VE ORDERED A SERVING OF mame 


YOU'VE ORDERED A HANBURGER a EVERYTHING 


YOU'VE ORDERED A LARGE FRENCH FRIES 








The final thing to note about this program is line 90, which—as I’m 
sure you have realized—is used to put a brief pause into the program be- 
fore it continues. Try taking this line out and you'll see that the program 
runs so quickly it is almost impossible to read the words as they scroll 


rapidly by you. 
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CHAPTER FIVE 





In this chapter, we'll be introducing a very useful part of your program- 
ming vocabulary—FOR/NEXT loops. You’ll recall that we mentioned 
FOR/NEXT loops when demonstrating the use of CLS to clear the screen. 
A FOR/NEXT loop was also used in our FAST FOOD program (line 90) to 
add a delay. 

A FOR/NEXT loop is pretty simple. It takes the form of two lines in 
the program, the first of which 1s like this: 


L0 FORA=1T0e0 
With the second like this: 


CO NEXTA 


The control variable, the letter after FOR and NEXT, must be the same. 
(You can, in fact, leave the second A out altogether, as the computer will 
know what you mean. However, leaving the control variable out makes 
programs harder to read and alter, so this practice is not recommended in 
your early programming days.) 

As a FOR/NEXT loop runs, the computer counts from the first num- 
ber up to the second, as these two examples will show: 


10 FORA=1T7020 
CO PRINT A; 
30 NEXTA 


When you run it, you'll see the numbers 1 to 20 appear on the screen, 
much as you have expected. 


Now try this version: 
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LQ FORA = ?bS TO 76] 
CO PRINT A; 
30 NEXTA 


This is the result of running it: 


(65S ?*bbh Ph? PbS 7b 770 27] 
Pe P73 0PPH 27S PPR 77? 778 
(?d ?80 78] 


STEPPING OUT 


In the two previous examples, the computer has counted up in ones, 


but there is no reason why it should always count in this way. The word 
STEP can be used after the FOR part of the first line as follows: 


L0 FORA=17T0100 STEP 10 
CO PRINT A; 


JO NEXT A 





When you run this program, you'll discover it counts (probably as you 
expected) in steps of 10, producing this result: 


10 ef0 30 40 50 bB0 70 80 430 100 


STEPPING DOWN 


The STEP does not have to be positive. Your computer is just as 
happy counting backwards, using a negative STEP size: 


10 FORA=100T0 L0 STEP -10 
CU PRINT A; 
30 NEXTA 


This is what the program output looks like: 
100 90 80 ?0 bO0 50 40 30 20 JU 


MAKING A NEST 


It is possible to place one or more FOR/NEXT loops within each oth- 
er. This is called nesting loops. In the next example, the B loop is nested 


within the A loop: 











The nested program produces this result: 


LTIMES LIS 1 
LTIMESe ISe 
CTIMES LISe 
OTIMNESe IS Y 
JTIMES LIS 3 





JTIMESe@ ISG 


You need to be very careful to ensure that the first loop started is 
the last loop which is finished. That is, if FOR A... was the first loop you 
mentioned in the program, the last NEXT must be NEXT A. 

Try swapping line 10 with line 20 in the program, and see what 
happens when you get your FORs and NEXTs mixed up. 

As you may recall, I mentioned that you do not 1n fact have to men- 
tion the control variable with the NEXT if you do not want to. I also said 
that it was not good programming practice to leave it out, as this makes 
programs somewhat difficult to unravel. However, as I imagine you’ve 
realized by now, leaving off the control variables at least gets around the 
problem of wrongly specifying the NEXT in nested loops. 

You can replace lines 40 and 50 of the program with either of the 
following (removing the old line 50 completely): 


4O NEXT A:NEXT B 


or 


4O NEXT=:NEXT 


or 


4O NEXT AB 





MULTIPLICATION TABLES 


You can use nested loops to get the computer to print out the multi- 
plication tables, from one times one right up to twelve times twelve, like 
this (note that you can omit the semicolon between the parts of the 
PRINT statement within quotation marks and those parts outside: this 


makes for quicker program entry, but diminishes the readibility of the 
program): 


CO > 





L179 le 
1 T0 le 
""TIMES''B''IS''A*B 





A 





Oogogocadcqo 
ae-uonn 


O 
0 
R 
E 
E 


<M XM HA A 





T 
B 
A 
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PeOOOOORPO~-) 
AAA 4444439055413 
Se Lae Loe Lom Lee Lae Lan Loe Lee Le Le 
323232323233 23232 
AMMMMmMmmmmm 
UUM HH) 





De UT owe eH 
ER a ey PU 
ae ae ts 


AWNnWNWNWdNUNWdnNWnnHire 
MeEeTOeOoOMvMrLrae Oa 


There is no reason why both loops should be traveling in the same 
direction (that is, why both should be counting upwards) as this variation 
on the Times Table program demonstrates: 


10 





in © wr 
Oococm 


Here’s part of the output of that program: 
YU TIMES 4 IS Lb 





YT IS le 
YT IS 4 
YT IS 4 
ST e IS bU 
ST LIS 55 
ST OLS SO 





CRACKING THE CODE 


It’s time now for our first real program. This is a game called CO- 


DEBREAKER which uses several FOR/NEXT loops. The computer 


thinks of a four-digit number (like 5462) and you have eight guesses in 
which to work out what the code is. In CODEBREAKER (based on a pro- 


gram by Adam Bennett and Tim Summers) you not only have to work 
out the four numbers the computer has chosen, but also determine the 


order they are in. 
After each guess, the computer will tell you how near you are to the 


final solution. A “white” is the right digit in the wrong position, and a 
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“black” is a correct digit in the right position within the four digits of the 
code. As you can see from this, you are aiming to get four blacks. Digits 
may be repeated within the four-number code. 

Enter the program and play a few rounds against the computer. 
Then return to the book and read the discussion of it, which will high- 
light the role played by the FOR/NEXT loops. 





10 
20 





CLS 


RANDOMIZE VAL (RIGHT$(TIME$,2) ) 


30 PRINT MHHKEKKKFFHHHHKLHHSKSK HHA RFREEN 
40 PRINT "Codebreaker by A.J.B and T.S.*® 
SO PRINT "HF FSGS sSHFHHSFHeteeRaeeaean 
60 PRINT 

70 PRINT "When you are told to do" 

80 PRINT "so, enter a 4-digit number" 
90 PRINT "and then press RETURN." 

100 PRINT 

110 PRINT "Digits can be repeated," 
120 PRINT 

130 PRINT "You have 8 goes to break" 
140 PRINT "the difficult code," 

150 PRINT "S#8 SSSR HHRFFRRESRRERRREN 
160 FOR Z=1 TO 3000:NEXT Z 

170 CLS 

180 DIM B(4) 

190 DIM D(4) 

200 LET H=0 

210 FOR Az=1 TO 4 

220 LET B(A)= INT (RND®#9) +41 

230 NEXT A 

240 FOR Cz=1 TO 8 

250 PRINT 

260 PRINT "Enter guess number";C; 

270 INPUT X 

280 IF X>9999 THEN GOTO 260 

290 IF X<1000 THEN GOTO 260 

300 LET PsINT (X/1000) 

310 LET Q=INT ((X-1000®P)/100) 

320 LET R=INT ((X-1000*P = 100#Q)/10) 
330 LET S=INT (X-10008P = 1008Q = 10#R) 
340 LET D(1)=P 

350 LET D(2)=Q 

360 LET D(3)=R 





370 LET D(4)=S 
380 FOR E=1 TO 4& 


390 IF D(E)<>B(E) THEN GOTO 440 
400 PRINT *" Black"; 


410 LET B(E)=B(E) + 10 

420 LET D(E)=D(E) + 20 

430 LET HeH + 1 

H4UO NEXT E 

450 IF H=4 THEN GOTO 650 

460 FOR Fs=i TO & 

470 LET D=D(F) 

480 FOR G=1 TO 4 

490 IF D<>B(G) THEN GOTO 530 

500 PRINT " White": 

510 LET B(G)=B(G) + 10 

520 GOTO 540 

530 NEXT G 

540 NEXT F 

550 FOR Gz=i TO 4 

560 IF B(G)<10 THEN GOTO 580 

570 LET B(G)=B(G) = 10 

580 NEXT G 

590 LET H =:0 

600 PRINT 

610 NEXT C 

620 PRINT: PRINT "You didn't get it..." 
630 PRINT "The answer is: ";B(1);B(2);B 
(3);B(4) 

640 END 

650 PRINT:PRINT:PRINT "Well done, codebr 
eaker!" 

660 PRINT 

670 PRINT:PRINT "You got the answer in*® 
680 PRINT TAB(5);"just";C; "goes" 

690 PRINT 

700 PRINT 

710 END 
























































Here’s what the screen looks like at the beginning of the run: 


Codebreaker by A.J.B and T.S. 
SHHSHSHFSSSKHFHKHSHSHHHKHHHSKRHS HEED 


When you are told to do 
so, enter a 4-digit number 
and then press RETURN. 
Digits can be repeated. 


You have 8 goes to break 


the difficult code. 
FHHKHHSHHHHHHHKHSHHHRSKEH EE HE 


And here is the end of one round played against it: 
Black White 


Enter guess number 3 ? 9854 
White White 


Enter guess number 4 ? 3243 


Enter guess number 5 ? 7854 
Black White 


Enter guess number 6 ? 6547 
White White 





Enter guess number 7 ? 8976 
Black Black White White 


Enter guess number 8 ? 8967 
Black White White White 


You didn't get it... 
The answer is: 7T 9 8 6 





We'll now go through the program, with line by line, a practice we'll 
be following with several of the programs in this book. If you don’t want 
to read the detailed explanation now (and there may well be parts of it 
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which are a bit difficult to understand at your present stage), by all 
means skip over the explanation now and then come back to it later 
when you know a little more. 

Lines 30, 50, and 150 print a number of asterisks to rule off the title 
and instructions, with blank lines printed by 60, 100, and 120. The ran- 
dom number generator is seeded, as we discussed earlier, by taking the 
VAL of the seconds part of TIME$, in line 20. Line 160 pauses for a few 
seconds so that you can read the instructions, before the screen is cleared 
by line 170. Arrays are dimensioned in lines 180 and 190. We discuss ar- 
rays in a later chapter. For now, all you need to know is that by saying 
DIM B(4) you tell the computer you want to create a list of objects, with 
the list called B, in which the first item can be referred to as B(1), the 
second as B(2) and so on. You do not really need to dimension an array 
when less than 11 elements will be needed, but it helps to keep your 
thinking clear to always dimension arrays before using them in pro- 
grams. In this program the arrays are used for storing the numbers 
picked by the computer, and for storing the digits which you pick each 
time you try to break the code. 

H is a numeric variable (we’ve mentioned numeric variables before) 
which is set equal to 0 in line 200. In line 430, 1 1s added to the value of H 
each time a black is found, so that if H ever gets to equal 4, the computer 
knows all the digits have been guessed, and goes to the routine from line 
650 to print up the congratulations. 

The lines from 210 to 230 work out the number which you will have 
to try and guess. Line 220 uses the RND function we've discussed before 
to get four random numbers between 0 and 9, and stores one each in the 
elements of the B array. Note that the first FOR/NEXT loop of our pro- 
gram appears here. The A in line 210 equals one the first time the loop is 
passed through, two the second time, and so on, so that the A in line 220 
changes as well. 

Our next FOR/NEXT loop, which uses C, starts in the next line. It 
counts from 1 to 8, to give you eight guesses. Line 270 accepts your guess, 
after the previous line has told you which guess it is you are entering. 
The numeric variable X is set equal to your guess, and line 240 checks to 
make sure you have not entered a five-digit number (line 280) or one 
which has less than four digits (line 290). If you have, the program goes 
back to line 260 to ask you once again to enter a guess. 

The next section of the program, right through to line 590, works 
out how well you’ve done, using a number of FOR/NEXT loops (380 to 
440, 460 to 540, 480 to 530, and 550 to 580). Line 610 sends the program 
back to the line after the FOR C = . .. to go through the loop again. If the 
C loop has been run through eight times, then the program does not go 
back to line 250, but “falls through” line 610 to 620 to tell you that you 
have not guessed the code in time, and to tell you what it is. Line 630 
prints out the code. 

If you do manage to guess it, so that H equals 4 in line 450, then the 
program jumps to line 650 to print out the congratulatory message. 
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CHAPTER SIX 


(Conanging In 
Midstream 


We pointed out at the beginning of the book that, in most situations, your 
computer follows through a program in line order, starting at the lowest 
line number and following through in order until the program reaches 
the final line. 

This is not always true. The GOTO command sends action through 
a program in any order which you determine. Enter the following pro- 
gram, and before you run it, see if you can predict what the result of run- 
ning it will be: 


10 GOTO 40 
20 PRINT "this is 20" 
30 GOTO 60 
40 PRINT "this is 4o" 
50 GOTO 20 
60 PRINT "this is 60" 

70 FOR Z=1 TO 300:NEXT Z 
80 GOTO 40 


This rather pointless program sends the poor computer jumping all 
over the place, changing its position in the program every time it comes 
to a GOTO command. Here’s what you should have seen on your screen: 


this 
this 
this 
this 
this 


is 
is 
is 
18 
is 


40 
20 
60 
40 
20 


30 





this is 60 
this is 40 
this is 20 
this is 60 
this is 40 
this is 20 





The program starts at line 10, and finding GOTO 40 there, moves 
on to line 40 to print the message “this is 40.” It then continues on to line 
00 where it finds the instruction GOTO 20. Without question, it zips back 
to line 20 to print out “this is 20” then goes to line 30 which directs it to 
line 60. At line 60 it finds the instruction to print out “this is 60” which it 
obeys. The computer then follows through to line 70 where the Z loop in- 
serts a short pause, before the computer moves on to line 80 to find yet 
another GOTO instruction, this time to line 40, which is just about where 
we began... and the whole thing starts over again. 


RESTRICTIVE PRACTICES 


Using GOTO in this way is called unconditional branching. The 
command is not qualified in any way, so the computer always obeys it. 
This brings us neatly to the next computer words we will consider. These 
are a pair of words IF and THEN, nearly always found (or implied) to- 
gether, which impose conditions on branching by GOTO commands. This 
pair of words is easy to understand. IF something is true, THEN do some- 
thing else. IF you are hungry, THEN order a hamburger. IF you want a 
big car, THEN save for it. IF something THEN something. 

The next program, which “rolls a die” (using the random number 
generator) and then prints up the result of that die roll as a word, uses a 
number of IF/THEN lines: 


10 REM DICE ROLLS 
20 GOTO 140 

30 PRINT "ONE" 

40 GOTO 140 

50 PRINT "TWO" 

60 GOTO 140 

70 PRINT "THREE" 
80 GOTO 140 

90 PRINT "FOUR" 
100 GOTO 140 

110 PRINT "FIVE" 
120 GOTO 140 

130 PRINT "SIX" 
140 LET A=INT (RND*®6) + 1 
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1 TO 200:NEXT Z 






150 = 

160 1 THEN GOTO 30 
170 2 THEN GOTO 50 
180 3 THEN GOTO 70 
190 4 THEN GOTO 90 
200 5 THEN GOTO 110 
210 6 THEN GOTO 130 


This is what you'll see when you run the program: 





FOUR 
THREE 
TWO 
TWO 
ONE 
SIX 
ONE 
SIX 
SIX 
TWO 
THREE 


So, we’ve looked at unconditional and conditional GOTO’s to send 
action all over the place within a program. 


SUBROUTINES, ANOTHER WAY TO FLY 


There is another way to redirect the computer during the course of a 
program. This is by the use of subroutines. A subroutine is part of a pro- 
gram which is run twice or more during a program, and is more efficient- 
ly kept outside the main program than within it. 

The next program should make this clear. In this program, the com- 
puter throws a die over and over again. The first time it is thrown, the 
computer is throwing it for you. The second time it throws the die for it- 
self. After each pair of dice has been thrown, it will announce who is the 
winner (highest number wins). The program uses a subroutine to throw 
the die, so we do not need two identical “die-throwing” routines within a 
single program. Enter and run the program, then return to the book, and 
lll explain where the subroutine is within the program, and how it 
works: 


10 FOR Z=1 TO 500:NEXT Z 
20 PRINT: PRINT 

30 FOR Cz=1 TO 2 

40 GOSUB 130 
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50 IF C = 1 THEN LET A = D 
60 IF C = 2 THEN LET B = D 
10 NEXT C 


80 IF A>B THEN PRINT "I WIN" 

90 IF A<B THEN PRINT "YOU WIN" 

100 IF A=B THEN PRINT "IT'S A DRAW" 
110 BEEP 

120 GOTO 10 

130 REM THIS IS SUBROUTINE 

140 LET D = INT(RND#6) + 1 

150 IF C = 1 THEN PRINT "I ROLLED A*";D 
160 IF C = 2 THEN PRINT "YOU ROLLED A®";D 
170 FOR Z=1 TO 100:NEXT Z 

180 RETURN 


This 1s what you'll see when you run it: 


I ROLLED A 1 
YOU ROLLED A 6 
YOU WIN 


I ROLLED A 1 
YOU ROLLED A 6 
YOU WIN 








I ROLLED A 6 
YOU ROLLED A 2 
I WIN 








The program pauses for a short while on line 10, prints two blank 
lines, then enters the C FOR/NEXT loop. When it gets to line 40, which it 
does (of course) once each time through the C loop, the program is sent to 
the subroutine starting at line 140. The “die” is “rolled” in line 140, and 
the numeric variable D is set equal to the result of the roll. The next two 
lines print out the result of the roll, using an IF/THEN to determine 
whether the computer should print “I ROLLEDA...” or “YOU ROLLED 
A.... There is a slight pause (line 170) and then the computer comes to 
the word RETURN. The word RETURN signals to the computer that it 
must return to the line after the one which sent it to the subroutine. In 
this program, that line (the one which is after the one which sent it to the 
subroutine) is 50. 

There, the IF/THENs in lines 50 and 60 determine whether the val- 
ue of the roll (D) should be assigned to the variable A or to B. 
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Line 70 ends the FOR/NEXT loop, and then lines 80 to 100 deter- 
mine whether the computer has won (which it will have done if A is 
greater than B, a condition which is tested using the “greater than’ sign, 
>, in line 80) or whether the human has won (which will happen if A is 
less than B, a condition tested in line 90 by the “less than” symbol, <). 
From here the program goes back to line 10, where it starts again. (By 
the way, you get the computer to stop running an “endless” program of 
this type by holding down the CTRL key and then pressing the SCROLL 
LOCK/BREAK key—in the extreme top right-hand corner of the key- 
board—until the program halts. Remember to keep both keys down to- 
gether.) 

Study this program, until you're pretty sure you know how subrou- 
tines work. 


LET'S ROLL AGAIN 


You may wonder if it is possible to change the earlier program, 
which changed the number rolled by the die into a word, using subrou- 
tines. The answer is yes, although the program with subroutines seems 
at first sight not much shorter than the GOTO version, and certainly it is 
not any clearer. Here’s one way it could be done: 
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10 REM DICE ROLLS 

20 GOTO 140 

30 PRINT "ONE*® 

40 RETURN 

50 PRINT "TWO* 

60 RETURN 

70 PRINT "THREE® 

80 RETURN 

90 PRINT "FOUR® 

100 RETURN 

110 PRINT "FIVE" 

120 RETURN 

130 PRINT "SIX" 

140 LET A = INT(RND#6) + 1 
150 IF A = 1 THEN GOSUB 30 
160 IF A = 2 THEN GOSUB 50 
170 IF A = 3 THEN GOSUB 70 
180 IF A = 4 THEN GOSUB 90 
190 IF A = 5 THEN GOSUB 110 
200 IF A = 6 THEN GOSUB 130 
210 FOR Z=1 TO 300:NEXT Z 
220 GOTO 140 


ON... GOSUB 


However, there is a way to do it cleanly, using ON ... GOSUB. This 
means that the computer can choose from a number of subroutine desti- 
nations, depending on the value which has been assigned to a variable. 

To try and make that clear, here is another version of the dice roll 
program, using ON... GOSUB: 


10 REM ON..GOSUB ROLLS 
20 FOR Z=1 TO 300:NEXT Z 
30 A= INT(RND*®6) + 1 

40 ON A GOSUB 60, 80, 100, 120, 140, 160 
50 GOTO 20 

60 PRINT "ONE® 

70 RETURN 

80 PRINT "TWO" 

90 RETURN 

100 PRINT "THREE®" 

110 RETURN 

120 PRINT "FOUR® 

130 RETURN 

140 PRINT "FIVE®* 

150 RETURN 

160 PRINT "SIX" 

170 RETURN 











Look first at line 30. This assigns a value, chosen randomly be- 
tween 1 and 6, to the variable A. You may have expected the line to read 
LET A=...and so on. However, the LET is optional. It often makes the 
meaning of the line clear, so you can leave it in if you like. But, as you'll 
see when you run the program, it makes no difference to the computer. 

Now the most important statement in the program, line 40. This 
means that if A equals 1, GOSUB the first number to follow the GOSUB 
command. If A equals 2, go to the second number; if A equals three go to 
the third, and so on. 

The program can be further condensed by the use of colons. Colons 
allow you to place more than one program statement after a single line 
number. When the RETURNS are placed on the same line as the PRINT 
statements, as in the following version, the program closes up even more: 


10 REM ON..GOSUB ROLLS 

20 FOR Z=1 TO 300:NEXT Z 

30 A= INT(RND*®6) + 1 

40 ON A GOSUB 60, 70, 80, 90, 100, 110 
50 GOTO 20 
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60 
T0 
80 
90 


PRINT 
PRINT 
PRINT 
PRINT 


MONE": RETURN 
"TWO": RETURN 
"THREE": RETURN 
"FOUR": RETURN 


100 PRINT "FIVE": RETURN 
110 PRINT "SIX": RETURN 
120 RETURN 


Note also that the lines have been renumbered, so they are all in 


neat 10’s. You can do this very simply, just by typing in RENUM and 
then pressing RETURN. 


CHAPTER SEVEN 





(setting into 
Music 





The SOUND command is a great way to add life to your programs. (The 
PLAY command is also available, but is much more difficult to work 
than is the SOUND command, and so is outside the scope of this book.) It 
is amazing, as you'll soon discover, what a little sound can do to enhance 
a program. 

SOUND is always followed by two numbers (or by variables repre- 
senting numbers). The first number is the pitch, or frequency, of the note 
to be played, and the second determines for how long the note will sound. 

Here’s a simple program which puts the SOUND statement through 
a few of its paces: 


10 REM SOUND DEMO 
20 FOR A = 37 TO 370 STEP 2 
30 SOUND A, 1 

40 NEXT 


And you can combine more than one SOUND statement at a time within 
a loop for an even more effective result: 


10 REM SOUND DEMO 

20 FOR A = 37 TO 370 STEP 2 
30 B= 720 - A 

40 SOUND A,1i: SOUND B,1 

50 NEXT 


od 


SOUND ADVICE 


The control numbers for the SOUND command can be the result of 
calculations, instead of being integers or assigned variables. In the next 
program, SOUND ADVICE, you have to guess the number between 1 
and 50 which the computer has thought of. The feedback on each guess— 
which will help you home in on the correct number in the shortest num- 
ber of guesses—is in the form of output produced by SOUND. The lower 
the note, the closer you are to the correct answer. Once you've played the 
game a few times, you'll see how easily you can interpret the output. 

Here’s what you see on the screen when playing the game: 


GUESS NUMBER 1 
What number am I thinking of? 3 





No, 3 is not correct 
GUESS NUMBER 2 
What number am I thinking of? 45 





No, 45 is not correct 
GUESS NUMBER 3 
What number am I thinking of? 42 





No, 42 is not correct 
GUESS NUMBER 4 
What number am I thinking of? 47 








47 is not correct 
GUESS NUMBER 5 
What number am I thinking of? 48 


No, 





Yes, I was thinking of 48 


You got it in 5 guesses 


Here is the listing (note that ABS in line 110 stands for “absolute” 
and gives the result of the calculation, stripped of its sign; if the result of 
a calculation is positive, ABS of that is still positive, while the ABS of a 
negative number is the number without its negative sign; for example, 
ABS (-— 3) 1s 3): 


10 REM sound advice 

20 RANDOMIZE VAL (RIGHT$(TIME$, 2) ) 
30 CLS 

4O R = INT (RND*®50) + 1 





50 GUESS = 1 

60 PRINT ,"GUESS NUMBER"GUESS 

70 INPUT "What number am I thinking of":A 
80 IF A<1 OR A>50 THEN 70 

90 IF A = R THEN 150 

100 PRINT: PRINT "No,"A"is not correct" 
110 M = 378ABS (R — A) 

120 SOUND M, 15 

130 GUESS = GUESS + 1 

140 GOTO 60 

150 PRINT: PRINT "Yes, I was thinking of"A 
160 BEEP 

170 PRINT: PRINT "You got it in"GUESS"guesses" 





The first line of the program is, of course, just a REM statement to 
tell you the name of the program. The next line (20) seeds the random 
number generator and line 30 clears the screen. Line 40 sets the variable 
R equal to a number chosen at random between 1 and 50. This is the 
number which you have to try and guess. The variable GUESS is set 
equal to one in line 50. As you've probably realized, this counts the num- 
ber of guesses you make. 

Line 60 prints up the number of the current guess, and line 70 asks 
you to enter a number. The following line checks the size of your guess, 
rejecting it if it is above 50 or below 1. Note that line 80 ends up with 
THEN 70, rather than THEN GOTO 70, as you may have expected. You 
are allowed to leave out the GOTO after THEN, as the computer will un- 
derstand what you mean. If you feel, however, that the program is easier 
to understand with GOTO in place, by all means replace it (and do the 
same in the following line, 90). 

Line 90 checks the answer you've given, and if it finds your answer 
(A) is the same as the number the computer has thought of (R), then 
sends action to line 150 where the congratulations message is printed. 

If you are not right, the program continues on to line 100 where af- 
ter printing a blank line, the “no, you are wrong” message 1s displayed. 
Now we come to the interesting bit. The variable M is set equal to 37 
times the absolute difference between the computer’s number and your 
guess. The number 37 was chosen because if the difference is only 1, then 
the note represented by 37—the lowest note the computer can produce— 
is sounded. The sound is produced in line 120, 1 1s added to the value of 
the variable GUESS, and then the computer returns to line 60 (via line 
140) for the next guess. 

The computer is capable of producing some quite exciting effects on 
its own, as our next program, which demands no action from you except 
for admiration, convincingly demonstrates. Take your IBM PC to Loch 
Lomond next time you go there, and conjure up some Highland fancies. 
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10 REM PC BAGPIPES 

20 DIM NOTE(8) 

30 FOR B = 1 TO 8 

40 READ NOTE(B) 

50 NEXT 

60 DATA 523.25,587.33,659.26,698.46 
70 DATA 783.99, 880,987.77, 1046.5 

80 FREQUENCY = NOTE(INT (RND#8) + 1) 
90 DURATION = INT(RND#3) #5 

100 SOUND FREQUENCY, DURATION 

110 GOTO 80 


MAKING YOUR OWN MUSIC 


If the “auto-bagpipes” are too much for you, try the next program, 
which allows you to use the bottom row of keys as a kind of organ. It is 
not too musical, but you should have some fun with it, and it will give 
you an insight into one way of using the SOUND command. Make sure 
you disengage the Caps Lock (that is, make sure the computer Is printing 
in small letters) before running this program. 


10 REM PC ORGAN 

20 REM DISENGAGE CAPS LOCK 

30 DIM B(8) 

40 FOR B = 1 TO 8 

50 READ B(B) 

60 NEXT 

70 DATA 130.81,146.83,164.81,174%.61 

80 DATA 196,220,246.94, 261.63 

90 WHILE A$<> "*,* 

100 A$ = INKEY$ 

110 IF A$<"*Z" AND A$>"." THEN 100 

120 IF A$="z" THEN SOUND B(1),3 

130 IF A$="x" THEN SOUND B(2),3 

140 IF A$="c" THEN SOUND B(3 

150 IF A$="v" THEN SOUND B(4 

160 IF A$="b" THEN SOUND B(5 

170 IF A$="n" THEN SOUND B(6 
t 
8 



















180 IF A$="m" THEN SOUND B( 


190 IF A$="," THEN SOUND B( 
200 WEND 





To play the PC ORGAN, just touch the keys on the bottom row of 
the keyboard, following this plan 
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key produces the note 


) 


Z C 
X D 
C E 
V f ” ” EF 
B G 
N A 
M B 


~™ 

™ 
“= 
= 
~™> 
“> 
~“—» 
“= 
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The organ will continue playing until you press the key with the period 
(.) on it, to the right of the , key. 

As well as gaining some insights into the use of the SOUND com- 

mand, there are other things we can learn from this program. Look at 
lines 90 and 200. They seem extremely odd, and in contrast to many oth- 
er commands in IBM PC BASIC which seem almost like English, appear 
to have no English equivalent. 
WHILE and WEND are always used as a pair, much like FOR and 
NEXT. FOR and NEXT are used when you want a section of the program 
to by cycled through a specified number of times. WHILE and WEND 
(which you should think of as “While END”) by contrast continue cycling 
through a section of the program until a specified condition is met. In 
this case (see line 90) the condition is that A$ (the key you are pressing) 
does not equal the period (.) which is, you'll recall, used to indicate that 
you want the program to end. Note in line 90 that the “less than” (<) and 
“greater than” (>) signs are used here together to mean “not equal to” 
(the use of these and the other symbols for comparison is discussed in the 
next chapter). You use WHILE and WEND whenever you want part of 
the program to be cycled through over and over again, until a certain 
condition is fulfilled. 
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CHAPTER EIGHT 


Making 
(Comparisons 








We all know the equals sign (=) and we've seen it in use in several pro- 
grams before. We’ve also seen “greater than” (>), “less than” (<), and 
“not equal to” (<>). At this point it would be useful to briefly recap on 
what each of these signs are, and what they mean: 


= equals 

> greater than 

< less than 
>= greater than or equal to 
<= less than or equal to 
<> not equal to 


You'll see these used in many programs in this book, such as the next 
one, which allows you to challenge the computer to a game of BRICK- 
BAT. This is based on a program written by Graham Charlton. 

This is our first moving graphics game. In it, a ball (0) moves in a 
sort of Squash court made up of hash (#) symbols. At the bottom is your 
bat (---). 

You move it left and right with the Z and M keys respectively. Ev- 
ery time you manage to get underneath the ball so it bounces back up 
into the court, you get 127 points. You have 10 lives, and the aim, obvi- 
ously enough, is to keep the ball in action for as long as possible. You 
should be able to get a score in excess of 1000 without too much trouble. 


42 





SFHFFFFFFHHEFFPFEFEFFFEHFEFEKER REEF 
#Lives left: 2 Score 1400 # 
# # 
#XxXXXXXXXXXXXXKXXKXKXXKXKXKXKXKKXKXKKXKXXXF 
#XXX XXXXX XXXXXXXXXKXXXXXXXXXXXX#F 


Here’s what the screen looks like in the early stages of the game: 


#xx Xx x Xx XXX XXXXXXXXXXXXXX# 

#x X XXXXXXXXXXXXX# 

#x x Xx x XXXXXXXXXXXX# 

# # 

# # 

# # 

# # 

f O # 

# # 

# S#FFFFFLFFFFF FF FFEFEET IF? EEE EE EE EF 

# #Lives left: 5 Score 902 # 

# # # 

# oxxxxxxxXxXxXXxXXXXXXXXXXXXXXXXXXXXXF 

# = #xxxxxXxxXxXXXXXXXXXXXXXXXXXKXKXXKXXXXX#F 
#xxx XXXXXXXXXXXXXXXXXXXXXXXXXXX#F 
#xxX x X XXXXXXXXXXXXXXXXXXXXXXF 
#x X xX X XXXXXXXXXX X# 

High score: 0 # # 
# # 
# 4 
# # 
# # 
f # 
# # 
# O # 
# } 
# $ 
# “<= # 


High score: 1568 


And this is the program listing: 


10 REM brickbat 
20 DEFINT A = Z 
30 HS = QO 


40 RANDOMIZE VAL (RIGHT$(TIME$, 2) ) 


50 WHILE NOT K 
60 CLS 
70 KEY OFF 
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80 PRINT "### FFs Fs sFeFFEFE EEE EEF FEF FF 
###":REM 32 #'8 
90 PRINT "# 

#":;REM # 30 spaces # 
100 PRINT "# 

#";REM # 30 spaces # 
110 FOR A = 1 TO 5 
120 PRINT "#xxxxxxxxxxXXXXXXXXXXXXXXXXXX 
xxx #" 
130 NEXT A 
140 FOR A = 1 TO 12 
150 PRINT "# 

#";REM # 30 spaces # 
160 NEXT A 
170 T = 10: SC = Q 
180 LOCATE 23,1: PRINT "High score:"HS 
190 LOCATE 2,2:PRINT "Lives left:"T®*". S 
core"SC 
200 WHILE T > 
210 C = -1: D 
0)+10;: Mz Ye 2 
220 A = SCREEN (X —- 1, + 
O THEN SC = SC + 56: C ~ 
- 60*X,1: LOCATE X - 1, Y 
";LOCATE 2,25: PRINT SC 
230 IF X < 4 THEN C = = C: Y = Y + INT(R 
ND#2);: SOUND 4O,? 
240 IF X > 20 THEN 350 
250 LOCATE X,Y+1:PRINT "o* 
260 LOCATE 19,M = 1:PRINT " --- * 
270 A$=INKEY$ 
280 IF (A$ = "Z" OR A$ 
THEN M = M = 2 
290 IF (A$ = "M" OR A$ 
THEN M = M + 2 
300 IF X = 19 AND ABS ( Y = M) < 3 THEN 

















O 
= -1: X = 9: Y = INT(CRND#1 
Y 1): IF A = 12 
= C: SOUND 1000 
+ 1: PRINT * 





"7") AND MD & 


"m") AND M < 25 


C = = C: SOUND 200,1: SC = SC + 3:LOCATE 
2,25:PRINT SC 
310 IF Y + D <2 OR Y + D 530 THEN D = -D 


>SOUND 500, 1 

320 LOCATE X,Y+1:PRINT " ® 
330 X = X + C: Y = Y + DPD 
340 GOTO 220 


350 T = T | 1: C - C 


360 
370 
380 
390 IF INKEY$ <> "" THEN 390 
400 LOCATE 2,2:PRINT "Lives left:"T" 
score"SC 
410 LOCATE 19,2:PRINT * 

rt 


= 100 TO 1000 STEP 40 
W, 1 





420 WEND 

430 FOR X = 1 TO 25 

440 SOUND (37 + RND#®2020), 1 

450 NEXT X 

460 IF SC > HS THEN HS = SC: LOCATE 22,1 
>PRINT "NEW HIGH SCORE! !":FOR A = 1000 T 
O 1030: SOUND A,1: NEXT 

470 LOCATE 23,1: PRINT "High score:"HS 
480 TIME$ = "or 

490 A = VAL (RIGHT$(TIME$, 2) ) 

500 WHILE A < 4 

510 A = VAL (RIGHT$(TIME$, 2) ) 

520 SOUND 1008(A + 1), 1 

530 WEND 

540 WEND 





In BRICKBAT, as I said, you use the Z and M keys to move your bat 
(---) back and forth at the bottom of the screen, bouncing the ball back up 
into the court if you can. The bal! will make a good “bounce” sound when 
it hits a wall, your bat, or the top row of x’s near the top of the court. 
There will be a flurry of aural activity if the ball misses your bat and 
exits through the bottom of the court. A similar tuneful display greets 
you at the end of your ten lives, before a new game begins. 

Notice that our “comparison symbols” (less than, and the rest) are 
used frequently in this program. They perform a number of tests 1n con- 
junction with IF/THEN statements, bouncing the ball off the bat at the 
bottom of the screen, the walls or the top row of x’s and deciding when 
the ball has missed the bat. 

The words AND and OR are also used in comparison lines, chaining 
tests together, as you can see in lines 280, 290, 300, and 310. These two 
words work as follows: 


AND The computer does what follows the THEN if both of the 
conditions chained by the AND are true 

OR The computer carries out the instruction following the 
THEN if either of the conditions is true 
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Let’s see how this works in practice. In line 280, the computer 
checks to see if you are pressing either the “z” OR the “Z” key AND 
whether M is greater than 4. If either of the first two conditions is true 
AND the second one is true, THEN the final statement is executed. Look 
at the other lines which use AND and OR, and see if you can work out 
how the logic is followed. 








CHAPTER NINE 


Two Games 
anda Test 





It’s time now to take a break from the serious business of learning to pro- 
gram the IBM PC. As you can see in this chapter, we have three major 
programs which use many commands which have not yet been explained. 
I suggest you enter the programs just as they are, play them for your own 
enjoyment, then come back to the explanations which follow the listings 
after you’ve mastered the rest of the book. 

I do not think it’s fair to keep you waiting for major programs until 
you ve covered everything on the computer. Also, entering short demon- 
stration programs can get pretty boring if you're longing to really see 
your computer in action. I hope you'll enter the programs “on trust,” re- 
turning to this chapter for the explanations when you feel you are ready. 
Of course, you do not have to enter the programs right now. If you’d pre- 
fer to continue with the learning, then move straight along to chapter 10. 


PLAYING ALONE 


Our first listing allows you to use your computer as a solitaire 
board. It is believed that solitaire was invented by an imprisoned noble- 
man in France in the late 16th Century, and was brought into England 
in the closing decade of the 18th Century, and from there spread to 
America. 

The aim of the game is simple to explain, but not so simple to 
achieve. You start on a board which has 33 “holes” on it arranged in a 
cross pattern. There are marbles in 32 of the holes, and the middle posi- 
tion 1s empty. 

When you run the program you'll see the solitaire board on the 
screen, and the number of “moves so far” will be shown. To play, you sim- 
ply jump over any of your pieces vertically or horizontally, so that you 
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end up in an empty position. The piece which you have jumped over is 
removed from the board. The aim of the game is to end up with just one 
piece in the center posititon. 

You are told, as I said, the number of the move, and how many 
pieces are left on the board. You move by entering the coordinates of the 
piece you want to move, using the number down the side first, followed 
by the number across the top. These are entered as a single, two-digit 
number. 

For example, if you wanted to move the piece which was two posi- 
tions below the central hole at the start of the game, you’d enter 64, then 
press RETURN, followed by 44, and RETURN again. The board is then 
reprinted, and you're offered tried another move. 

Here’s the listing of the SOLITAIRE program: 


10 REM SOLITAIRE 
20 GOSUB 430 
30 GOSUB 280 
4Q WHILE COUNT <> 1 
50 REM ACCEPT MOVE 
60 LOCATE 22,1:PRINT "Which peg do you w 
ant to move"; 
70 INPUT A 
80 LOCATE 22,1:PRINT * 
ve 

90 IF A = 99 THEN GOTO 270 
100 IF A<11 OR AS77 THEN GOTO 60 
110 IF ACA) <> 1 THEN GOTO 60 
120 LOCATE 22,1:PRINT A"to where"; 
130 INPUT B 
140 LOCATE 22,1:PRINT " 

| 
150 IF B<11 OR B>77 THEN GOTO 130 
160 IF A(B) <> E THEN GOTO 130 
170 LET A( (A + B)/2) = E: LET A(A) = E:L 
ET A(B) = 7 
180 LET MOVE = MOVE + 1 
190 LET COUNT = 0O 
200 FOR F=11 TO 75 
210 IF A(F) = 1 THEN LET COUNT = COUNT ¢ 

1 

220 NEXT F 
230 GOSUB 280 
240 LOCATE 1,1:PRINT "There are"™;COUNT;"® 
pegs on the board" 
250 WEND 
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260 
in 
270 


IF AC(44) = 1 THEN PRINT "You did it, 
just";MOVE;"moves!":END 
LOCATE 22,1:PRINT "The game is over, 


and you'tve failed!":END 


280 
290 
300 


310 
320 
330 
340 
350 
360 





370 
380 
390 
400 
410 
420 
4 30 
440 
450 


REM print out 
LOCATE 3,5 
PRINT "Enter side co-ordinate first" 


PRINT TAB(5);"Enter 99 to concede" 
LOCATE 8,5:PRINT "1 2345 67" 
PRINT TAB(5); 

FOR D = 11 TO 75 

T = 10®( INT(D/10) ) 

IF D = T = 8 THEN LET D = 





D+ 2: PRI 


NT T/10: PRINT TAB(5);:GOTO 380 


PRINT CHR$(A(D));" "3 

NEXT D: PRINT * 7" 
PRINT: PRINT: PRINT 

PRINT "Moves so far:";MOVE 
PRINT: PRINT 

RETURN 

REM INITIALISE 

CLS 

KEY OFF: 





REM this removes function 


key information from the bottom of the 
screen 


460 
470 
480 
490 
500 
510 
520 
5 30 
540 
550 
560 
570 
580 
590 
600 
610 






DIM A(87) 
LET E = 2 

FOR D = 11 TO 75 

LET T = 10*( INT(D/10) ) 

IF D = T = 8 THEN LET D = D + 3 
READ A(D) 

NEXT D 

LET MOVE = 0O 

RETURN 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,32, 32 





Line 20 sends action to the subroutine from line 430 which initial- 
izes the variables. After clearing the screen in line 440, 450 turns the key 
indicators off on the bottom of the screen. The A array is dimensioned in 
line 460. This array actually holds the board. 

E is the value of an empty square. You can see what it is by typing 
in PRINT CHR§(2). The loop from 480 to 520 fills many of the elements 
of the array from the DATA statements from line 550 through to 610. 
Lines 490 and 500 cause the loop to jump over certain values which are 
not used in the game. 

On returning from the initialization routine, the program directs 
the computer to the routine from line 280 which prints out the board. 
Next, the major WHILE/WEND loop (from 40 to 250) swings into action, 
accepting your move, and making the necessary changes to the elements 
of the A array. , 

The routine from line 190 to 220 runs through the board, using the 
variable COUNT to count the pieces on the board, before going to the 
printout routine (from 280). If COUNT equals 1 (which means there is 
just one “marble” left on the board) the computer “falls through” the 
WEND in line 250 to the end of game routine. Here the computer checks 
(line 260) to see if the array element which contains a marble is 44 (see 
line 260) and if it is, the computer knows you have won the game, and 
prints out a relevant message. If not, line 270 is triggered, and the 
mournful message “The game is over, and you've failed!” appears on the 
screen. 








TESTING YOUR SPEED 


The next program, REACTION TEST, is much shorter than SOLI- 
TAIRE, but just as much fun to display. You enter the program, type in 
RUN, and the message STAND BY appears. After an agonizing wait, 
STAND BY will vanish, to be replaced with the words “OK, PRESS THE 
‘4 KEY!”. As fast as you can, you leap for the Z key and press it, knowing 
that the computer is counting all the time. : 

The computer then tells you how quickly you reacted, and compares 
this with your previous best time. “BEST SO FARIS...” Appears on the 
screen, and the computer then waits for you to take your hands off the 
keyboard to prevent cheating (as if you’d do such a thing!) before the 
whole thing begins again. 


STAND BY 





OK, PRESS THE 'Z' KEY} 


YOUR SCORE WAS 449 


BEST SO FAR: 152 


Here’ s the listing of REACTION TEST: 


10 REM REACTION TEST 
20 LET HISCORE = 1000 


30 RANDOMIZE VAL(RIGHT$(TIME$, 2) ) 
40 WHILE HISCORE > 7 


50 CLS 
60 PRINT: PRINT: PRINT "STAND BY" 


70 FOR A = 1 TO 700 + RND*2000 
80 NEXT A 


90 LET A$ = INKEY$ 


100 IF A$ <> "" THEN GOTO 70 


110 PRINT:PRINT: PRINT "OK, PRESS THE 'Z!* 
KEY1" 


120 LET COUNT = 0 








130 LET COUNT = COUNT + 1 

140 LET A$ = INKEY$ 

150 IF A$ <> "Z" AND A$ <> "Zz" THEN GOTO 
130 

160 PRINT: PRINT: PRINT "YOUR SCORE WAS®*;:C 

OUNT 

170 IF COUNT<HISCORE THEN LET HISCORE =z 

COUNT: BEEP 


180 PRINT: PRINT "BEST SO FAR:";HISCORE 


190 FOR A = 1 TO 1000: NEXT A 
200 LET A$ = INKEY$ 


210 IF A$ <> "" THEN GOTO 200 
220 WEND 
230 PRINT: PRINT "YOU'RE THE CHAMP! * 


240 BEEP 
250 END 









Line 20 sets the variable HISCORE to 1000 and the random num- 
ber generator is seeded in line 30. The variable COUNT is set to zero in 
line 120 and incremented by 1 every time line 130 1s revisited, which oc- 
curs when you have not managed to get to the Z key. Lines 140 and 150 
check to see if you have touched the Z key, and if not, sends the program 
back to 70 where COUNT is incremented. 

Once you’ve managed to get to Z, the program “falls through” to 
line 160, where you are told your score. This is compared with the best 


score (variable name HISCORE) in the following line, and HISCORE is 
adjusted to COUNT if COUNT is the lower of the two. 


ol 


The next line (190) puts in a short pause, and then line 200 checks 
to make sure you have taken your hands off the keyboard. It stays cy- 
cling through 200 and 210 until you take your hands off the keys.The 
WEND then sends the program back to the line after the WHILE (line 
40) and the next round of the game begins. 

The WHILE/WEND continues only so long as HISCORE stays 
greater than 7 (as you can see in line 40). Once you get a high score below 
8, the program continues through the WEND to lines 230 and 240 where 
the words “YOU’RE THE CHAMP!” appear on the screen. 


A CORNER ON GO 


Our next program is a fascinating one. It allows you to play against 
the computer in the Japanese board game HASAMI SHOGI. Whereas 
the board games with which you might be familiar—such as chess and 
checkers—are played on an eight by eight board, HASAMI SHOGI is 
played on a nine by nine board. The corner of a GO board (which is 19 by 
19) is often used. 

Each player starts the game with 18 “stones.” Your stones are 
rounded, and the computer’s stones are square. You start at the bottom of 
the board playing up the screen, and the computer starts at the top. The 
aim of the game is to capture seven of your opponent’s pieces. Actually in 
real-life HASAMI SHOGI, the aim of the game is to capture all your op- 
ponent’s pieces, but—as you'll see when you play this game—this would 
make each round last a long, long time. 

This may be satisfactory when you're playing against another hu- 
man being and can chat as the game proceeds, but you'll find it takes far 
too long to complete a game when playing against the machine. There- 
fore, we've changed the aim of the game so that each of you is trying to 
capture seven of your opponent’s pieces. 

You take turns moving, and you can only move one piece per turn. 
You move vertically or horizontally, but not diagonally. With each move 
you have three choices: 


1. You can move into a vacant square which is above, below, or be- 
side your piece 

2. You can jump over one of your own pieces into an empty square 

3. You can jump over an opponent’s piece into an empty square 


Unlike what happens in checkers, a piece which has been jumped 
over is not captured and is not removed from the board. The only way you 
can capture a piece is by moving so that you trap a computer piece be- 
tween two of yours. It captures your pieces in a similar way. 

You do not lose your piece simply by moving in between two com- 
puter pieces. Therefore, you aim to get your piece next to a computer 
piece, with an empty square beyond that, so you can move into an empty 
Square on a subsequent move. 

Observing a game in action is perhaps the best way to understand 
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it. Here are some stages in a game of HASAMI SHOGI played against 


the IBM PC: 
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Now here is the listing for HASAMI SHOGI: 


10 REM HASAMI SHOGI 

20 REM Engage Caps Lock! 

30 GOSUB 850 

4Q WHILE NOT K 

50 GOSUB 100 

60 GOSUB 490 

70 GOSUB 660 

80 GOSUB 490 

90 WEND 

100 REM CAPTURE 

110 A = 99 

120 IF A(A) <> C THEN 210 

130 IF ACA = 10) = E THEN IF A(A =~ 9) = 

H THEN IF ACA =- 8) = C THEN SOUND 50,1:B 
= A = 10:GOTO 380 

140 IF A(A = 10) = E THEN IF A(A —- 11) = 
H THEN IF A(A =- 12) = C THEN SOUND 100, 
1:B = A =- 10: GOTO 380 

150 IF ACA =- 10) = E THEN IF ACA + 11) = 
H THEN IF A(A + 12) = C THEN SOUND 150, 
1;B = A = 10: GOTO 380 

160 B= 1 

170 IF A + 2*C(B) < 11 OR A + 28C(B) D Q 
9 THEN GOTO 190 

180 IF A(A + C(B)) = E AND A(A + 28*C(B)) 
= H AND A(A + 38*C(B)) = C THEN A(A + 28 

C(B)) = E:CS = CS + 1: GOTO 360 

190 IF B<4 THEN B = B + 1: GOTO 170 

200 IF RND < .05 THEN SOUND 37 + 2A, 1 

210 IF A> 11 THEN A =A - 1: GOTO 120 

220 REM Nonecapture 

230 COUNT 0 


240 COUNT COUNT + 1: SOUND 37 + 16*COU 
NT, 1 

250 A = RND*89 + 11 

260 IF A(A) = C THEN SOUND 200,1: 
90 

270 IF COUNT < 200 THEN 240 

280 LOCATE 1,1:PRINT "Hasami Shosi Maste 
r"; PRINT "I give you the victory!":END 
290 B= 1 

300 IF A + 2*C(B) < 11 THEN 320 











GOTO 2 














310 IF (ACA + C(B)) = C OR A(A + C(B)) = 

H) AND ACA + 2*C(B)) = E THEN B= A+ 28 
C(B):GOTO 380 

320 IF A(A + C(B)) = E THEN 350 

330 IF B < 4 THEN B = B + 1: GOTO 300 
340 GOTO 270 

350 REM IBM PC moves 

360 B= A + C(B) 

370 SOUND 400, 1 

380 B1 = B = 10#( INT(B/10) ) 

390 A(B) = C: A(A) = E 

400 IF B1 > 7 THEN 420 

410 IF A(B + 1) = H AND A(B + 2) = C THE 
N A( B + 1) = E:CS = CS + 1 

420 IF Bi < 3 THEN 440 

430 IF A(B = 1) = H AND A(B = 2) = C THE 

N A(B - 1) = EB: CS =CS + 7 

44HQO IF A > 89 THEN 460 

450 IF A( B+ 10) = H AND A( B+ 20 ) = 

C THEN A( B + 10 ) = E: CS = CS + 1 

460 IF A < 29 THEN RETURN 

470 IF A( B = 10) = H AND A( B= 20) =C 
THEN A( B = 10) = E: CS = CS + 1 

480 RETURN 

4K90 REM Board printout 

500 IF RND < .3 THEN SOUND 800, 1 

510 LOCATE 4,14:PRINT ®" 12345 67 8 
O";LOCATE 4,14 

520 FOR M = 90 TO 10 STEP = 10 

530 PRINT TAB(13)CHR$(M/10 + 64);" "; 
S40 FOR N = 1 TO Q 

550 PRINT CHR$(A(M + N));" "3 
560 NEXT 

570 PRINT CHR$(M/10 + 64) 

580 NEXT 

590 PRINT TAB(15);"1 2 345 6 7 8 9" 
600 PRINT:PRINT ,"IBM PC:"CS 

610 PRINT ,"Human:"HS 

620 IF CS > 6 OR HS > 6 THEN 640 

630 RETURN 

640 IF CS > HS THEN PRINT: PRINT "I win!" 
> END 

650 PRINT: PRINT "You win!":END 


























660 REM player move 

670 LOCATE 20,7:INPUT "From (letter,no)" 
;A$ 

680 IF ASC(A$) > 96 AND ASC (A$) < 123 T 
HEN LOCATE 20,7:PRINT "ENGAGE CAPS LOCK 

";FOR Z = 37 TO 100: SOUND Z, 1:NEXT 
: GOTO 670 

690 IF A$ = *S" THEN END 

700 IF LEN (A$) <> 2 THEN 670 

710 LOCATE 20,7:PRINT " 





720 ee 20,7:PRINT "From "A$" to "s3:I 
NPUT B$ 
730 IF LEN (B$) <> 2 THEN 720 
THO LOCATE 20,7:PRINT " 
1" 


750 A = 10 *®( ASC (A$) = 64) + VAL (RIGHT 


$(A$,1)) 

760 B = 10 *( ASC (B$) = 64) + VAL (RIGHT 
$(B$,1)) 

770 Y = VAL (RIGHT$(B$,1) ) 

780 A(B) = H: ACA) = E 

790 IF A(B + 1) = C AND A(B + 2) «= 
Y <= 7 THEN A(B + 1) = E: HS = HS 

S 





800 IF A(B = 1) = C AND A(B & 2) 
Y >=3 THEN A(B = 1) = E: HS = H 

810 IF B > 79 THEN 830 

820 IF A(B + 10) = C AND A(B + 20) = HT 

HEN A(B + 10) = E:HS = HS + 1 

830 IF B >= 31 THEN IF A(B = 10) = C AND 
A(B = 20) = H THEN A(B = 10) = E:HS = H 

5S + 1 

840 RETURN 

850 REM initialise 


860 RANDOMIZE VAL(RIGHT$(TIME$,2)) 
870 KEY OFF 


880 DEFINT A - Z 

890 CLS 

900 DIM A(129), C(4) 

910 H = 72: C = 67: E = 42 
920 FOR Z = 11 TO 29 

930 IF Z = 

940 A(Z) = 
950 NEXT 








960 FOR Z = 31 TO 79 

970 IF 10*INT(Z/10) = Z THEN Z = Z + 1 
980 A(Z) = E 

990 NEXT 

1000 FOR Z = 81 TO 99 


1010 IF Z 90 THEN Z = 91 
1020 A(Z) C 


1030 NEXT 
1040 HS = QO 

1050 CS = QO 

1060 FOR Z=1T0O & 

1070 READ C(Z) 

1080 NEXT 

1090 DATA -10, -1, 1, 10 
1100 GOSUB 490 

1110 RETURN 





The program listing may seem very long, but it is somewhat sim- 
pler to understand than it may appear at first sight. This is because it 
has been written in “modules,” each of which is called by a GOSUB near 
the start of the program. Programming in this way is a good idea if you 
are developing a program which could be fairly long and involved, as it 
enables you to keep track of what each section is doing. 

As well, it is easy to track down bugs (the common computer word 
for a program error, and named when a malfunction in an early comput- 
er was found to have been caused by a moth which was caught inside the 
cabinet) when the program is in modules. The module which contains the 
bug should be relatively easy to isolate. 

The idea of programming in “modules” in this way is perhaps easier 
to understand if we show how it has worked in this program: 


Line 30: GOSUB 850. This sends the program to the subrou- 
tine which sets up all the starting variables. This kind of sub- 
routine is often called the initialization subroutine. On 
returning from the subroutine, the computer comes to the line 


WHILE NOT K. 


Line 40: WHILE NOT K. This is a convenient way of ensuring 
that a perpetual loop is created. So long as K is not a variable 
used in the program, WHILE NOT K will ensure that the pro- 
gram circles endlessly between that line, and the WEND line. 
It is a useful dodge to use whenever you want a program to 
cycle through a program forever. Use any name in place of the 
K which has not been used elsewhere in the program. 


Line 50: GOSUB 100. This is the subroutine which determines 
the computer’s move. 





Line 60: GOSUB 490. The subroutine starting from line 490 
prints out the board after each move. 


Line 70: GOSUB 660. This subroutine accepts and acts on the 
player's move. 


Line 80: Again the subroutine to print the board is called. 


Line 90: WEND. This sends action back to the line after the 
WHILE NOT K. | 


Now if you take a moment to consider the implications of these 
numbers, you should see what I was driving at when talking about mod- 
ules. Here is the breakdown of what is really happening as the program 
runs: 





40 GO BACK TO 


As the conditions for terminating the game are within the other 
modules, it will continue to run in this way until one of the conditions is 
met. You can see from this breakdown that if, for example, the computer 
consistently misprinted the board, I would know the problem almost cer- 
tainly was within the subroutine beginning at line 490, because that is 
the subroutine which prints the board. 

In the same way, if the computer moved, for example, the piece next 
to the one I intended, every time, I would know there was a problem 
within the subroutine which dealt with the player’s move, the subroutine 
starting from line 660. 

This ability to know where in your program the error is likely to be, 
before you start trying to track it down, is a very useful one. 

It is likely, in a program like this, that the real problems will lie 
within the routines which give the computer its “intelligence.” I have 
found that the best way to work is to write the first few lines (such as 
lines 10 to 90 in this program) before anything else is written. Then, I 
write the other parts module by module. Once the initialization is over, I 
can work on the board printing routine, and not worry about the fact that 
I do not have a clue as to how I would eventually get the computer to 
play. | 

Then, I could work on the other modules, one by one, perfecting 
each one before having to bother about the others. 

You ll find that you can follow this routine no matter what kind of 
program youre writing. Programs for business or home applications 
should be handled in the same way. Break the program into self-con- 
tained modules, and then write a “loop” at the beginning of the program 
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to cycle through all the subroutine calls. Although this can make pro- 
grams a little longer than they otherwise might be, the gain in easy un- 


derstanding more than outweighs the additional typing which might be 
needed. 





CHAPTER TEN 





Stringing 
Along 





You'll recall that several times in this book so far we have referred to 
numeric variables (letters like A or B, words like COUNT and GUESS, 
and combinations such as R2D2 and C3PO) and to string variables (one 
or more letters followed by a dollar sign, such as NAMES, A§, or AGE$ is 
a string variable). In this chapter, we'll be looking at strings, and at 
things you can do with them. 





THE CHARACTER SET 


Every letter, number or symbol the IBM PC prints has a code (the 
code, by the way, is an ASCII code; ASCII is explained in the glossary). 
Telling the computer to print the character of that code produces the 
character. 

It is easy to understand this. As the code is an ASCII code, as I 
pointed out above, the computer word for the code is ASC. Note that the 
ASC value for the letter “A” has nothing to do with the value assigned to 
A when it is a numeric variable, but refers to “A” when we actually want 
the computer to print the letter “A.” Note that we put the “A” in quota- 
tion marks when we're referring to it as a letter. 

Try it now. Enter the following into your computer, and see what 
you get: 


PRINT ASC(''A'') 





Note that the letter for which you want the ASC must be within paren- 
theses and also within quotation marks, as above. Now when you get the 
computer to run the above line, it should give the answer 65. (If you 
didn’t get that, you either left something out in the line or you’re using 
an “a” instead of an “A.”) 
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From this we can see that 65 is the ASC (ASCII code) of “A”. We can 


turn a 65 back into an “A” by asking the computer to print the character 


which corresponds to ASC code 65. We do this with the BASIC word 
CHRS$, as follows: 


PRINT CHRS$(LS) 


Run this, and the letter “A” will appear. You can get your IBM PC 


to print out every ASC code and its character with the next short pro- 
gram. Enter it, and watch closely: 


10 REM SHOWING ASC AND CHR$ 
20 FOR A = 32 TO 255 

30 PRINT A;CHR$(A);" "; 

40 FOR B = 1 TO 50:NEXT 

50 NEXT A 


This is the start of the printout you'll see: 


32 33 ! 34 " 35 # 36 $ 
39 § 4O (¢ 41) 42 * 4Z 4 Ay, 
46. 4T / 4B O 491 =+502 513 «52 ¥ 
54 6 55 7 56 8 579 58: 593 #460 < 
62 > 63 ? 64 @ 65 A 66 B 67 C 68 D 
70 F 71G 72H 73 I 74d 75 K TOL 
78 N 79 0 80 P 81Q 82 R 83 S 84 T 85 YU 

87 W 88 X 89 Y 902 91[ 92 \ 93 } 
~ 97 a 98 b 99 ec 100 d 101 e 
104 h 105 i 106 j #107 k 108 1 
111 0 112 p 113 q 114 r 115 8 
118 v 119 w 120 x 121 y 122 z 
125 } 126 ~ 











TESTING YOUR CHARACTER 


Our next program is a reaction tester like the one you experienced 
earlier. However, you are not just being tested on speed. In this program, 
you have to try and find the right key on the keyboard as quickly as possi- 


ble. 








Make sure that CAPS LOCK is engaged when you run the program. 
A letter will appear on the screen. As quickly as you can, find that letter 
on the keyboard and press it. You'll be told how long it took you, and this 


time will be compared with your best time. 
Notice how the letter which is printed on the screen uses CHR$ in 
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line 70, printing the character of the number chosen at random by line 40 
and assigned there to variable A. A§ is set equal to INKEY$ (which is 
explained a little later in the book) in line 80 and compared with the let- 
ter the computer has chosen in line 90. 


CLS 
BEST 
A 65 + INT(RND#26) 

B 0 
LOCATE 13,7 
PRINT CHR$(A) 
A$ INKEY$ 

IF A$ CHR$(A) THEN BEEP:GOTO 160 
B B+ 1 | 

LOCATE 9,5 


20 
30 
40 
50 
60 
TO 
80 
90 
100 
110 


1000 


120 
130 
140 
150 


PRINT B 

IF B < 200 THEN 80 

PRINT "Sorry, time is up" 
GOTO 180 


160 
170 
180 
190 
200 
210 
220 
230 
240 


PRINT "Well done, you scored" 
PRINT B;"on that one® 
IF B< BEST THEN BEST 
PRINT: PRINT: PRINT 
PRINT "The best score so far is";BEST 
FOR G 1 TO 15*B 

NEXT G 

CLS 

GOTO 40 





B 





CUTTING THEM UP 


One of the very useful aspects of the BASIC on your IBM PC is the 
way it can be used to manipulate strings. The words used to handle 
strings are: 





(By the way, these are usually spoken aloud as “left-string,” “mid- 
string, and “right-string.”) 

The next program shows them in action. Enter it and run it on your 
computer, then return to the book for a discussion to show what can be 
learned from it. | 
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10 CLS 
20 A$ = "FIFTH® AVENUE" 


30 PRINT 

HO PRINT "LEFT$(A$,3) = ";LEFT$(A$, 3) 

50 PRINT 

60 PRINT "LEFT$(A$,5) = ";LEFT$(A$,5) 

70 PRINT 

80 PRINT "RIGHT$(A$,3) = ";RIGHT$(A$, 3) 

90 PRINT 

100 PRINT "RIGHT$(A$,5) = ";RIGHT$(A$,5) 
110 PRINT 

120 PRINT "MID$(A$,3) = ";MID$(A$, 3) 

130 PRINT 

140 PRINT "MID$(A$,5) = "3MID$(A$,5) 

150 PRINT 

160 PRINT "MID$(A$,5,4) = ";MID$(A$,5,4) 
170 PRINT 


180 PRINT "MID$(A$,2,7) = ";MID$(A$,2,7) 


As you can see, the program first (in line 20) sets A$ equal to 
“FIFTH*AVENUE”. Then it uses LEFT$, RIGHTS and MID$ to extract 
the original string, A$. 

Here’s what it looks like when you run it: 


LEFT$(A$,3) = FIF 
LEFT$(A$,5) = FIFTH 
RIGHT$(A$,3) = NUE 


RIGHT$(A$,5) = VENUE 





MID$(A$,3) = FTH*®AVENUE 





MID$(A$,5) = H®AVENUE 


H®AV 





MID$(A$,5,4) 


MID$(A$,2,7) IFTH*®AV 


Look at the first line of the output. LEFT$(A$,3) = FIF. LEFTS$ 


takes the leftmost portion of the string as far as the number which fol- 
lows the string. That is, when we have LEFT$(A$,3) it takes the three 
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leftmost characters of the string. The next printout, LEFT$(A$,5) takes 
the five leftmost characters of the string, producing in this case FIFTH 


(because they are five leftmost characters of the overall string). 
It can be used slightly differently. If we said: 


PRINT LEFTS(* 'FIFTH*AVENUE * * 43) 





the computer would print out FIF. The string, then, can either be a string 
variable (A$) or the string in full (“FIFTH*AVENUE”). 

As you’ve probably worked out by now, RIGHT$ does the same 
thing as LEFT$, except it starts at the right-hand end of the string. 
Therefore, RIGHT$(A$,3) selects the three rightmost characters of the 


string, in this case NUE. Again, as above, this is the same as saying: 


PRINT RIGHTS(' 'FIFTH*AVENUE ® * 43) 


MID$ is a little more flexible. It selects a portion from the middle of 
the string, starting from the character number which follows the string. 
Therefore, MID$(A$,4) prints all the string starting with the fourth char- 
acter. 

If there is only one number (such as the 4 above), then MID$ selects 
all of the string to the end of it. However, if there is another number, this 
second number dictates the length of the string which will be extracted. 

You can see in the last two printouts from the program that 
MID$(A$,5,4) prints the extract of the string four characters long, start- 
ing from character five. MID$(A$,2,7) produces a string seven characters 
long starting from the second character. 


Rerun the program now, putting your name in place of FIFTH* 
AVENUE in line 20. 








PUTTING THEM BACK TOGETHER 


Strings can be added together on the IBM PC. The process of adding 
strings is called the frightening-looking word concatenation. You can 


concatenate two or more complete strings together, or just add bits of 
them, as our next program shows: 


20 RANDOMIZE VAL(RIGHT$(TIME$, 2) ) 
30 A$ = "AMERICA® 

40 BS = ®"COLUMBUS® 

50 C$ = A$ + BS 

60 PRINT "A$ = "; A$ 





70 PRINT 
80 PRINT "B$ = ";B$ 
90 PRINT 
100 PRINT "C$ = ":;C$ 
110 PRINT 


120 D INTC RND#6) + 1 

130 E INTC RND®6) + 7 

140 PRINT "MID$(C$";D;",";5E;") = "sMID$(C$, 
D,E) 

150 PRINT 

160 D$ = MID$(C$,D,E) 

170 E$ = A$ + D$ 

180 PRINT "E$ = ":E$ 











_ When you run this program, which creates C$ in line 50 by concate- 
nating A$ and B$, you’ll see results like these two: 


A$ = AMERICA 
B$ = COLUMBUS 
C$ = AMERICACOLUMBUS 


MID$(C$ 1, 9 ) = AMERICACO 





E$ = AMERICAAMERICACO 


A$ = AMERICA 


COLUMBUS 


Od 
Ss 
it 


C$ = 





AMERICACOLUMBUS 


MID$(C$ 3, 9 ) = ERICACOLU 


AMERICAERICACOLU 





E$ = 





PLAYING AROUND 


You can do a number of things with string manipulation, as our 
next program demonstrates. NAME PYRAMID allows you to enter your 
name to produce a very interesting display. Once you’ve seen the pro- 
gram running, you'll understand why the program has been given the 


name it has. 
This is the listing of NAME PYRAMID: 


10 REM NAME PYRAMID 
20 CLS 





30 
40 
50 
60 
TO 
80 
90 
100 
110 
120 
130 


And 


INPUT "What is your full name"; A$ 
IF LEN (A$) > 15 THEN A$ = LEFT$(A$,15) 
A = LEN (A$) 
CLS 
FOR G = 1 TO A 
PRINT TAB(16 - G); 
FOR H = 1 TO 2*G 
PRINT MID$(A$,G,1); 
NEXT H 
PRINT 
NEXT G 


here are two runs of the program, one using my name, and the 


other the name of a character who has been widely used in advertising 
the IBM PC: 
TT 
iiii 
nmommmm 
HHHHHHHHHH CC 
aaaaaaaaaaaa hhhh 
rrrrrrrrrrrrrr aaaaaa 
tttttttttttttttt rrrrrrrr 
nonnnnnnnnnnnnnnnn 1111111111 


eeeeeeeeeeeeeceececeece 
LlllLLILIIIILIIIIIIII1I 


Liiiiiiiiiii 
eeeeeeeeeeeecee 








LWALILIIIIIIIILIIILIIIII11 





PLAYING 


cceccccccccccccccce 
hhhhhbhhbhhhhhhhhhhhh 
aaaaaaaaaaaaaaaaaaaadaa 
PPPPPPPPPPPPPPPPPPPPPPPpP 
121121111111111111111111111 
4ifL14141414114144111114111i11i 
OMONOnnnnnnnnnnnnnnnnnnnnnnnnnnn 


IT BACK 


Our final program in this chapter shows one very effective use of 
string manipulation, in which a string 1s progressively reduced by one 


element. 





When you run ECHO GULCH, you'll see a letter appear on the 


screen. It will then vanish. Once it has vanished, you will have a limited 
amount of time in which to press the key yourself. 
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If you've pressed the right key, a beep will sound, and the letter will 


be replaced with a new one. This will stay on the screen for a shorter 
time than the previous one. 


Each time a new letter appears, you will be given less time to see it 


9 


before you have to press that particular key on the keyboard. If you make 
a mistake, the “SORRY, THAT IS WRONG” message will appear, along 


with your score. If you manage to get the whole list of letters right, you’ll 


be rewarded with a “YOU’RE THE CHAMP"!” message. 
Here’s the listing: 








LOCATE 12,15 
10 PRINT MID$(A$,1,1) 





80 FOR G = 1 TO 17*LEN(A$):NEXT G 
90 CLS 
100 B$ = INKEY$ 





110 IF B$ < "A" OR B$ D> *"Z" THEN 100 

120 LOCATE 12,15 

130 PRINT B$ 

140 IF B$ = 
5S + 1 

150 LOCATE 5,1 


160 PRINT "Your score is"S 
170 LOCATE 12,15 


180 PRINT " * 

190 IF B$ <> MID$(A$,1,1) THEN 240 
200 A$ = MID$(A$,2) 

210 IF LEN(A$) = 1 THEN 270 

220 FOR G = 1 TO 500:NEXT G 

230 GOTO 60 

240 PRINT: PRINT "SORRY THAT IS WRONG" 
250 PRINT: PRINT "YOU SCORED"S 


260 END 
270 PRINT "YOU'RE THE CHAMP! !* 





MID$(A$,1,1) THEN BEEP:BEEP:S = 








The variable S, which holds your score, is set to 0 in line 30, and 
line 40 sets the string variable A$ to a long line of letters. Line 70 prints 
the first letter only of the string, and line 80 insets a short delay loop, 
which uses the LEN function. 

This is another string function, and returns the length of a string, 
that is, the number of characters which make it up. LEN does not make 
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any distinction between letters, numbers, symbols, or spaces, as you'll 
discover if you enter a number of PRINT LEN A§ statements, after set- 
ting A$ to equal various words, symbols, and sentences. 

Because, in our program A$ is reduced by one character by line 200 
each time the program cycles, LEN A$ is a smaller number each time. 
Therefore, the delay produced by line 80 (which dictates how long the 
character will be on the screen before it vanishes) becomes shorter. 


INKEYS 


Line 100 uses INKEY$ to read the keyboard. INKEY$, as you've 
probably worked out by this point in the book, does not demand that you 
press RETURN after touching a key. INKEY$ always returns the key 
you have pressed as a string. INKEY$ does not, in contrast to INPUT, 
WAIT until you have pressed a key before the program continues. 

If you are not touching a key when the program comes to an IN- 
KEY$, it simply passes right through the line, reading your non-touch- 
ing of the keyboard as the null string (two quotation marks with nothing, 
not even a space, between them, as *"). 

Line 110 looks at B$, the variable which is set equal to whichever 
key is being pressed as the program goes through line 100. As you can 
see in line 110, you can use the “greater than’(>) and the “less than” (<) 
symbols, which we discussed in chapter 8, in connection with strings. 
These look at all elements of a string and compare them in terms of al- 
phabetical order (so “ZEBRA” is less than “AARDVARK” and “BEAST” 
is greater than “BEAUTY”. 

As well, you can compare strings using “equals” (=) and “not 
equals” (<>), as shown by the next few lines of the program. Line 140 
compares the key you have pressed with the first element of A$, and if 
they are the same, continues through the multi-statement line to BEEP 
and then adds 1 to your score (variable S). 

Line 180 then blanks out the letter, in preparation for the next one 
to appear. Line 190 compares B$ with the first element of A$ again, and 
if it finds they are not equal, sends the program to lines 240 and 250 
where you are told “SORRY THAT IS WRONG” and your score is given. 

Line 200 strips the string A$ of its first character, by setting A$ 
equal to MID$(A$,2). Line 210 checks to see if the length of A$ equals 1 
(that is, if LEN A$ = 1) and if it finds that it is, goes to line 270 to print 
out the “"YOU’RE THE CHAMP!!” message. If not, the program cycles 
back to line 60 to print out the next letter for you. 





CHAPTER ELEVEN 





Reading 
LATA 


In this chapter, we’ll be looking at three very useful additions to your 
programming vocabulary: READ, DATA, and RESTORE. They are used 
to get information stored in one part of the program to another part 


where it can be used. 
Enter and run this program, which should make this a little clear- 


er: 


10 REM READ, DATA and RESTORE 


20 DIM A(5) 

30 FOR B = 1 TO 5 

4O READ A(B) 

50 PRINT A(B) 

60 NEXT B 

70 DATA 88,8965,23,-94,3 


Using line 40, the program READs through the DATA statement in line 


70 in order, printing up each item of DATA with line 50. 
RESTORE moves the IBM PC back to the first item of DATA in the 


program, as youll discover if you modify the above program by adding 
line 55, so that it reads as follows: 


10 REM READ, DATA and RESTORE 
20 DIM A(5) 

30 FOR B = 1 TO 5 

40 READ A(B) 


50 PRINT A(B) 
55 IF B = 3 THEN RESTORE 
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70 


60 NEXT B 
70 DATA 88,8965,23,-94, 3 


It does not matter where in the program the DATA is stored. The 
computer will seek it out, in order from the first item of DATA in the 
program to the last, as our next program (which scatters the DATA 
about in an alarming way) convincingly demonstrates: 


1 DATA 45 


10 
20 
22 
30 
40 
50 
55 
60 
T0 





10 
20 
30 
40 
50 
60 


REM READ, DATA and RESTORE 
DIM A(5) 

DATA 888 

FOR B =1 TO 5 

READ A(B) 

PRINT A(B) 

DATA 432 

NEXT B 


DATA 933,254 


READ and DATA work just as well with string information: 


REM READ/DATA with strings 
FOR B = 1 TO 5 

READ A$ 

PRINT A$ 

NEXT B 

DATA test,one,nine,after,noon 


Note that string DATA do not have to be enclosed within quotation 
marks, unless leading or trailing spaces and/or punctuation and symbols 
are significant and must be considered part of the DATA. 

You can mix numeric and string DATA within the same program, 
as long as you take care to ensure that when the program wants a nu- 
meric item, a number comes next in the program, and when it wants a 
string item, it finds it: 


10 
20 
30 
40 
50 
60 


REM READ/DATA with strings 

FOR B = 1 TO 5 

READ A$:READ A 

PRINT A$,A 

NEXT B 

DATA test,12,one,989892,nine,3,after, 


-892781,noon, 23 


CHAPTER TWELVE 


Adding Lite 
to Programs 








The IBM PC has many facilities, and you should make the most of them. 
In this chapter we are going to take a simple program and elaborate it by 
adding such things as sound, flashing text, and graphics. 

You'll find this is a painless way to introduce the facilities. Once 
you ve worked through this chapter, you should find it easy to apply the 
ideas to other programs you are writing. 

The program we're going to use as the core of our development work 
is a Duck Shoot” one, in which little objects fly across the screen, and 
you have to try and shoot them down. 

In the first version of the program, the little objects are letters cho- 
sen at random, and you are the letter X. You fire at the “ducks” by press- 
ing the F key. You move yourself left using the Z key and to the right 
with the M key. CAPS LOCK must be engaged before you run the pro- 
gram. 
Although there is no time limit within the program, so you do not 
have to shoot all the ducks as quickly as you can, there is a limit on the 
number of shots you can fire. In three of the versions of this game in this 
part of the book, you'll see (line 50) that the program starts with a limit 
of 15 shots. In the last two, more complex, versions, you have 50 shots. 
The number of shots is deliberately kept low in the first versions so you 
will not be able to get a high score just by leaving your finger on the F 
key and waiting for the ducks to fly into the line of fire. 

Here, then, is the first program. Type it into the PC and then run it: 


10 REM DUCK SHOOT 
20 CLS 

30 DEFINT A = Z 
40 SCORE = O 
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SL DF G FD FGG 





70 ACROSS <= 15 

80 DOWN = 19 

90 WHILE NOT K 

100 LOCATE 11,1:PRINT A$ 

110 LOCATE DOWN, ACROSS -1:PRINT " X " 
120 B$ = INKEY$ | 

130 IF B$ = "F" THEN SHOTS = SHOTS - 1:I 
F MID$(A$,ACROSS,1) <> ™ "™ THEN SCORE = 
SCORE + 57:MID$(A$,ACROSS,1) =" * 

140 LOCATE 5,1:PRINT "Score: "SCORE, "Shot 
s left:;"SHOTS" °* 
150 IF SHOTS < 1 THEN LOCATE 10,1:PRINT 
"That's the end of the game"; END 

160 IF B$ = *"Z" THEN ACROSS = ACROSS = 1 





















170 IF B$ "M" THEN ACROSS = ACROSS + 1 


180 A$ = MID$(A$,2) + LEFT$(A$,1) 
190 WEND 


Here’s an indication of what the screen looks like when it is up and 
running: 


Seore: 171 Shots left: 11 
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You'll see the letters which are held in A$ (see line 60) moving 

across near the top of the screen. You (the X) will be further down the 
screen, about a quarter of the way across. You can—as I mentioned a few 
paragraphs ago—move yourself back and forth using the Z and M keys to 
get yourself into the position which you think gives you the best possible 
chance. 
When you judge a “duck” is directly overhead, press the F key to 
fire your patented anti-duck missile. The number after the words “Shots 
left” near the top right-hand corner of the screen will decrease and, if you 
have been accurate, the number after the word “Score” will increase. 

Note, by the way, that I have deliberately used explicit names for 
the variables within this program. That is, the variable name for the 
score 1s SCORE, for the shots it is SHOT, and for your position across the 
screen, the variable name is ACROSS. Even though it takes a little long- 
er to type long variable names into a program, the advantages of using 
explicit names to keep the purpose of various parts of the listing clear 
outweighs the extra time it takes to type them in. 

If, for example, you were writing a program like this, and you decid- 
ed it would be better if the X was printed further down the screen, you 
would not have to search through the program to work out which vari- 
able held your “down” coordinate. If you had used explicit names, as in 
this case, you would find it very easy to locate the variable you were look- 
ing for. 

Run the DUCK SHOOT program a few times, then return to the 
book for the first part of a discussion on it. 









Line 60 defines the string variable A§ as a long series of letters and 
spaces. The letters can be anything you like; do not feel you have to copy 
mine. The important thing, however, is that the string is 32 characters 
long. You can check this by running the program briefly, stopping it, 
then typing in PRINT LEN (A$). If your string is the correct length, 
PRINT LEN (A$), followed by RETURN, will give you the answer 32. 

The appearance of movement given to the ducks is created by the 
string-handling commands which were explained a little earlier in the 
book. Refer back to this section now if you need to remind yourself how 
they work. 

The vital line for movement is 180, which resets A$ equal to all the 
string without its first character—that is to MID$(A$,2)—and then adds 
to the very end of it the character of the string which was at the begin- 
ning, LEFT$(A$,1). The string is reprinted over and over again at 11,1 
(see line 100, where LOCATE 11,1 is used to move the cursor to the posi- 
tion where we next wish to print) which is eleven lines down, and at the 
first position across the line. 

Because the string is, in effect, being “shifted along” one character 
at a time before it is reprinted, the elments within the string appear to 
move smoothly along. Using strings in this way is one of the simplest 
ways to create smoothly moving graphics on the IBM PC. 

The string handling also makes it very simple to cause the shot 
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duck to disappear from the sky. As the string is 32 characters long, each 
character “shot” can be referred to as MID$(A$,ACROSS, 1). 

Look at line 130. When the computer comes across an IF/THEN 
statement—as you know— it checks to see if it is true. If it finds that it is 
not true, then it moves along to the next line in the program, without 
bothering to carry out any further instructions which may be on the 
same line. Note that before the computer gets to line 130, it sets B$ equal 
to the key you are pressing (INKEY$). If the computer finds, at the start 
of line 130, that B$ does not equal F (as will be the case when you are not 
pressing the F key), then it proceeds to line 140, missing all the informa- 
tion and instructions which follow the IF B$ = “F”... line. 

If, however, you are pressing F when the computer reads the key- 
board, the IBM PC continues working through the line, and reduces the 
value of the variable SHOTS by one. Then it hits another IF/THEN con- 
dition in which it looks at the element of A$ which is directly above the 
position of the X at that moment. 

If line 130 discovers that this element of A$ is anything but a space, 
you have hit a duck, so the computer continues working through the line. 
The variable SCORE is incremented by 57 and, finally in line 130, that 
particular element of A§ is set to a blank, so the duck disappears. 

Now, this takes some time to explain, but you'll find the computer 
does it apparently instantaneously. You press F, the score increases by 
Oo? (if you’re a good shot), the number of shots left drops by one, and the 
duck disappears. You'll see (line 150) that the game continues until you 
run out of shots, when the game terminates. Take note of your score at 
this point, and see if you can beat it on subsequent runs. 

Once you have the program running to your satisfaction, and you 
have a pretty good idea of how it works, modify it to read like the follow- 
ing program. You do not have to NEW the computer. Just compare the 
program you have in your IBM PC, line by line, with the next listing, and 
make any changes you need to, by adding and amending lines: 


10 REM DUCK SHOOT - II 
15 COLOR 0,7 

CLS 

DEFINT A = Z 

SCORE = 
SHOTS = 
A$ = "ZA 





0 
15 
B 





DK SL ODF G FD FGG 


ACROSS = 
DOWN = 19 
WHILE NOT K 

100 LOCATE 11,1:PRINT Ag 

110 LOCATE DOWN, ACROSS -1:PRINT " xX ® 
120 B$ = INKEY$ 





15 
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130 IF B$ = "F" THEN SHOTS = SHOTS —- 1:I 
F MID$(A$,ACROSS,1) <> " ® THEN SCORE = 
SCORE + 57:MID$(A$,ACROSS,1) = * ": BEEP 

140 LOCATE 5,1:COLOR 31:PRINT "Score:"SC 
ORE,*Shots left:"SHOTS" ":COLOR 0,7 

150 IF SHOTS < 1 THEN LOCATE 10,1:PRINT 

"That's the end of the game":COLOR 7,0:E 
ND 

160 IF BS = *Z" THEN ACROSS = 

















ACROSS = 1 


170 IF BS = "M"® THEN ACROSS = ACROSS + 1 





180 A$ = 
190 WEND 


MID$(A$,2) + LEFT$(A$,1) 


Now when you run this, you'll see an immediate and striking im- 


provement. The entire screen is white with black writing, except for the 
SCORE/SHOTS LEFT line which is flashing black and white. Line 15— 


COLOR 0, 7—produces the inverse image. In line 140, COLOR 31 causes 
the blink and highlight, and the COLOR 0,7 at the end of the line turns 
the color control back to where it was before, so the whole screen doesn’t 
start flashing off and on. 

The BEEP at the end of line 130 only sounds if you’ve actually hit a 
duck. Notice that the computer defaults to the standard white on black at 
the end of line 150 before ENDing. 

Now that we’ve dealt with the “color” (and the changes described 
will work for an IBM PC equipped with either the Color/Graphics Moni- 
tor Adapter or the IBM Monochrome Display and Parallel Printer Adapt- 
er), let’s have a look at the sound possibilities of this program. 

Modify the listing so that it looks like this third version, run it a 
few times, and then we’ll talk about the things it is doing: 





10 REM DUCK SHOOT - III 

15 COLOR 0,7 

20 CLS 

30 DEFINT A = Z 

35 FOR G = 100 TO 1000 STEP 50: SOUND G, 
~5: SOUND 2000 = G, .5:NEXT G 

40 SCORE = 0O 

50 SHOTS = 15 

60 A$ = "ZAB DK SL ODF G FD FGG 

qn 

70 ACROSS «= 15 

80 DOWN = 19 
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90 WHILE NOT K 

100 LOCATE 11,1:PRINT A$:NOTE = 2*(ASC(L 
EFT$(A$,1))):IF NOTE <> 64 THEN SOUND NO 
TE, .5 | 

110 LOCATE DOWN, ACROSS -1:PRINT " X * 
120 B$ = INKEY$ 

130 IF B$ = "F" THEN SHOTS = SHOTS —- 1:8 
OUND 3700,.9:IF MID$(A$,ACROSS,1) <> " * 
THEN SCORE = SCORE + 57:MID$(A$,ACROSS, 
1) = ™ ®s;SOUND SCORE, 3 

140 LOCATE 5,1:COLOR 31:PRINT "Score:"SC 
ORE,"Shots left:"SHOTS" ":COLOR 0,7 

150 IF SHOTS < 1.THEN LOCATE 10,1:PRINT 
"That's the end of the game":COLOR 7,0:E 
ND 

160 IF B$ 


"2" THEN ACROSS = ACROSS - 1 





170 IF B$ = "M" THEN ACROSS = ACROSS + 1 


180 A$ = MID$(A$,2) + LEFT$(A$, 1) 
190 WEND 


Immediately you run the program, you notice a difference. First, 
there is a dramatic double run of musical notes. This is produced by line 
35. You'll recall, from chapter seven, that the SOUND command is fol- 
lowed by two numbers. The first one—which must lie between 37 and 
32767—controls the frequency of the note which is produced, and the sec- 
ond one—which must be between 0 and 65535—controls the duration of 
the note. In line 35, the G which is the control variable of the loop, is the 
pitch sounded by the computer. 

The material added to the end of line 100 ensures that each time a 
duck flies off the left-hand side of the screen, a note sounds. The pitch of 
the note is determined by the individual letter which is meant to be the 
duck at that point. 

At the end of line 130, the BEEP has been replaced by a note which 
is related to the score, so the higher your score, the higher the note which 
is produced. As well, there is a high-pitched sound which you hear each 
time you press F,, whether you hit anything or not. 

Now these changes, as you can hear, enhance the program even 
more. However, we have not yet finished, as version IV shows: 


10 REM DUCK SHOOT - IV 

12 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 
15 COLOR 0,7 

20 CLS 
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30 DEFINT A - Z 


35 FOR G = 100 TO 1000 STEP 50: SOUND G, 


3 SOUND 2000 ee G, ~5: NEXT G 
40 SCORE = QO 











50 SHOTS = 50 
52 A$ = On 
54 FOR T = 1 TO 32 


56 IF RND > .7 THEN A$ = A$ + CHR$(INT(R 
ND*6) + 1) ELSE A$ = A$S+" "1 

60 NEXT T 

70 ACROSS = 15 

80 DOWN = 19 

90 WHILE NOT K 

100 LOCATE 11,1:PRINT A$:NOTE = 30 + 7#( 


ASC(LEFT$(A$,1))):IF NOTE <> 254 THEN SO 
UND NOTE, .5 


105 LOCATE 12,1:PRINT A$ 
110 LOCATE DOWN, ACROSS -1:PRINT * ";:CHR 
$(8)5;" " 
120 B$ = INKEY$ 
130 IF B$ = "F" THEN SHOTS = SHOTS = 1:S 
OUND 3700,.9:IF MID$(A$,ACROSS,1) <>" * 
THEN SCORE = SCORE + 57:MID$(A$,ACROSS, 
1) = CHR$(15):LOCATE 11,1:PRINT A$:LOCAT 
E 12,1:PRINT A$:MID$(A$,ACROSS,1) = " ®%; 
SOUND SCORE, 3 
140 LOCATE 5,1:COLOR 31:PRINT "Score:"SC 
ORE,"Shots left:"*SHOTS" ":COLOR 0,7 
150 IF SHOTS < 1 OR A$ = * 

" THEN LOCATE 10,1:PRI 
NI "That's the end of the game":LOCATE 1 
5,9:PRINT "Rating: "SHOTS#197:COLOR 7,0:L 
OCATE 22,1:END 
160 IF B$ = "Z" THEN ACROSS = ACROSS = 1 




















170 IF B$ = "M" THEN ACROSS = ACROSS + 1 





180 A$ = MID$(A$,2) + LEFT$(A$, 1) 
190 WEND 


Instead of letters, we find in this version that the ducks are charac- 
ters from the PC’s character set. Line 12 seeds the random number gen- 
erator, and then the loop from 54 through to 60 creates a random duck 
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pattern. You’ll find this changes each time you run the program. As well 
as little characters forming the line of ducks, you'll see it is printed twice. 

Another change—in line 130—gets the computer to turn a shot 
duck into a little starlike explosion before it vanishes. The number of 
shots (see line 50) has been increased to 50. You'll see in line 150 that the 
game will terminate if you run out of shots—as before—or if you manage 
to destroy all the ducks before you run out of shots. In this last case, 
you re given a “rating” (see end of line 150) before the program termi- 
nates. As well—see the end of line 150—the cursor is moved to 22, 1 
(with LOCATE) before the program ends, to stop the terminating mes- 
sage ruining the display. 

By now, as you can see, your program listing is getting quite com- 
plex, as the program develops. You should follow a similar series of steps 
when creating your own programs: get a raw “basic” program up and 
running, and then add to it, and modify it, until you have created a mas- 
terpiece. On some computers all these additional things would slow it 
down unacceptably, but the IBM PC works so quickly the extra tasks 
you ve given it to do appear to make little difference to running speed. 

Finally, we have version V. You should be able to work out how 
each part works, from the information gained from the other sections. 
Note that you now have four lines of ducks, two going from left to right, 
and two from right to left. You must get rid of all them in order to get a 
“rating.” Even if you found it relatively easy to demolish all the ducks in 
the earlier versions before you ran out of ammunition, you’! find that is 
not so with this version. 


10 REM DUCK SHOOT - V 

12 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 

15 COLOR 0,7 

20 CLS 

30 DEFINT A - Z 

35 FOR G = 100 TO 1000 STEP 50: SOUND G, 
~-5: SOUND 2000 = G, .5:NEXT G 

SCORE = 0Q 

50 SHOTS = 50 

A$ = "n 

Z$ = nn 

54 FOR T = 1 TO 32 

56 IF RND > .7 THEN A$ = A$ 

ND#6) + 1) ELSE A$ = A$ + " 

57 IF RND > .5 THEN Z$ = Z$ 

ND*6) + 1) ELSE Z$ = Z$ +" 

60 NEXT T 

70 ACROSS = 35 

80 DOWN = 19 














+ CHR$(INT(R 


+ CHR$(CINT(R 
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90 WHILE NOT K 

100 LOCATE 11,21:PRINT A$:NOTE = 30 + 7# 
(ASC(LEFT$(A$,1))):IF NOTE <> 254% THEN S 
OUND NOTE,.5 

105 LOCATE 12,21:PRINT A$ 

107 LOCATE 14,21:PRINT Z$:LOCATE 9,21:PR 
INT 2$ 


110 LOCATE DOWN, ACROSS -1:PRINT " ":CHR 





$(8);" " 
120 B$ = INKEY$ 
130 IF B$ = "F" THEN SHOTS = SHOTS - 1:S 


OUND 3700,.9:IF MID$(A$,ACROSS-20,1) <> 
" " THEN SCORE = SCORE + 57:MID$(A$,ACRO 
SS-20,1) = CHR$(15):LOCATE 17,21:PRINT A 
$:LOCATE 12,21:PRINT A$:MID$(A$, ACROSS-2 
0,1) = " "™:SOUND SCORE, 3 

135 IF B$ = "F" THEN IF MID$(Z$,ACROSS-2 
0,1) <> ™ ™ THEN SCORE = SCORE + 57:MID$ 
(Z$, ACROSS-20,1) = "®":LOCATE 14,21:PRIN 
T Z$:LOCATE 9,21:PRINT Z$:MID$(Z$, ACROSS 
~20,1) = " ":SOUND SCORE, 





3 
140 LOCATE 5,17:COLOR 31:PRINT " Secor 





e:"SCORE,"Shots left: "SHOTS" 


T 
150 IF SHOTS < 1 OR A$ = * 


" AND Z$ = * 
" THEN LOCATE 10,2 
1:PRINT "That's the end of the game":LOC 
ATE 15,29:PRINT "Rating: "SHOTS#197: COLOR 


7,0:LOCATE 22,1:END 
160 IF B$ = "Z" THEN ACROSS = ACROSS - 1 


";COLOR O, 


170 IF B$ = "M" THEN ACROSS = ACROSS + 1 


180 A$ = MID$(A$,2) + LEFT$(A$,1) 
185 Z$ = MID$(Z$,32) + LEFT$(Z$, 31) 
190 WEND 


CHAPTER THIRTEEN 





Getting Listed 


An array is used when you want to create a list of items, and refer to the 
item by just mentioning the position within the list the item occupies. 
You set up an array by using the command DIM (for dimension). If you 
type in DIM A(20), the IBM PC will set up a list in its memory called A, 
and will save space for twenty-one items: (A(0), A(1),...andsoon...up 
to A(20). Each of these items—the A(7) and the rest—are called elements 
of the array. 

When you dimension, or set up, an array, the computer creates the 
list in its memory and then fills every item in that list with a zero. So if 
you told your computer to PRINT A(3) it would print a 0. You fill the 
items in an array with a statement like A(2) = 1000, or by using READ 
and DATA as we saw in chapter eleven. Once you've given an element a 
value, you can get the computer to tell you what value the element has 
by saying PRINT A(n). You can also manipulate the element as if it were 
the number. That is, A(4)*6 is valid, as is 45 - A (6), and so on. 

The IBM PC will let you use an array of up to 11 elements (that 1s, 
A(Q) through to A(10), or TEST(0) through to TEST(10)) without having 
to use the DIM statement first. The moment it comes across a reference 
to an element of an array, where the subscript (the number which follows 
in parentheses) is between 0 and 10, it automatically creates an array. 
However, it is good practice always to dimension arrays, even if you are 
using fewer than 12 elements. 

You may like to “forget” about the element which has the subscript 
zero, and pretend that the array starts at one. Many times you'll find it 
simpler to assume DIM A(80) gives you an array of 80 elements (rather 
than 81 as is the case), and that the first element is A(1). 

The first program in this chapter dimensions (sets up, or creates) an 
array called A with room for sixteen elements. We will ignore the ele- 
ment with the subscript 0. The B loop, from lines 40 to 60, fills the array 
with random digits between 0 and 9, and then prints them back for you 
with the loop from 70 to 100 (with a slight pause being created by line 
90). 





80 


Here is the listing: 


10 REM ARRAYS 


1 TO 100:NEXT T 


20 DIM A(15) 

30 CLS 

40 FOR B = 1 TO 15 

50 A(B) = INT(RND#9) 

60 NEXT B 

TO FOR Z = 1 TO 15 

80 PRINT "A("Z") IS "A(Z) 
90 FOR T = 

100 NEXT Z 


And here’s one example of it in use: 
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This 1s called a one-dimensional array, because a single digit follows the 
letter or name which labels the array. 


You can also have multi-dimensional arrays, in which more than 


one number follows the array label after DIM. In our next program, for 
example, the computer sets up a two-dimensional array, called A again, 


consisting of five elements by five elements (that 1s, it is dimensioned by 
DIM A(4,4), as you can see in line 20): 


10 REM MULTI-DIMENSIONAL ARRAYS 


20 DIM A(4,4) 


30 CLS 


81 


40 
50 
60 
T0 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


FOR B =i1 TO 4 
FOR C = 1 TO 4 

A(B,C) = INT(RND#9) 
NEXT C 

NEXT B 
COLOR 0,7 

PRINT " 1 2 3 48 
FOR B =i1 TO 4 

COLOR 0,7:PRINT B;:COLOR 7,0 
FOR C =1 TO 4 

PRINT A(B,C); 

NEXT C 

PRINT 

NEXT B 


When you run it, you'll see something like this: 


You 
left-hand 


HWM — 

N &— OVW — 
oo Ul O W NM 
== On MO W 


specify the element of a two-dimensional array by referring to 
both its numbers, so the element 1,1 of this array (the element in the top 
corner of the preceding printout) is 3 and is referred to as 
A(1,1). The 8 in the printout is A(3,3), and the 4 below it 1s A(4,3). 

Your computer also supports string arrays. Enter and run the fol- 


lowing short program to see string arrays in operation: 


10 
20 
30 
40 
50 


60 
T0 
80 
90 


REM STRING ARRAYS 


DIM A$(5) 

CLS 

FOR B = 1 TO 5 

A$(B) = CHR$(INT(RND#26) + 65) 


+CHR$(INT(RND#26) +65) 


NEXT B 

FOR B =i1 TO 5 

PRINT "A$("B") IS "A$(B) 
NEXT B 


Here’s one printout of this program: 
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A$( 1 ) IS NV 
A$( 2 ) IS RD 
A$( 3 ) IS EL 
A$( 4 ) IS IZ 
A$( 5 ) IS LL 


| You can, of course, fill the elements of an array—string or numer- 
ic—via DATA or INPUT statements. Here is a string array which is 
filled by a DATA statement: 


10 
20 
30 
40 
5 0 
60 
T0 
80 


REM STRING ARRAYS 


DIM A$(5) 

CLS 

FOR B = 1 TO 5 

READ A$(B) 

NEXT B 

FOR B = 1 TO 5 

PRINT "A$("B") IS "A$(B) 





90 NEXT B 
100 DATA THINKING, IS, A, PAINFUL, TASK 
This is the result of running it: 

A$( 1 ) IS THINKING 

A$( 2 ) IS IS 

A$( 3) IS A 

A$( 4 ) IS PAINFUL 

A$( 5 ) IS TASK 


ESCAPE FROM MURKY MARSH 


The next program demonstrates the use of a two-dimensional array 
for “holding” an object, and for moving it around within the array. The 
object in this case is a little shape with a pointed top. The shape is 
trapped in a murky marsh, and by moving totally at random, it hopes one 
day to be able to escape from the marsh. The shape is free if it manages to 
stumble onto the outer rows. 

(By the way, the shape in this program demonstrates Brownian mo- 
tion, the random movement shown by such things as tiny particles in a 
drop of water when viewed under a microscope, or of a single atom of gas 
in a closed container. Brownian motion explains why a drop of ink gradu- 
ally mixes into the water into which it has been placed.) 

Here is the program listing: 





10 REM Dragon's Lair 

20 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 

30 DIM A(10,10) 

40 COLOR 0,7 

50 CLS 

= Q 

T0 GOSUB 300 

80 WHILE Q<9 OR P<9Q 

90 IF RND > .35 THEN P = P + 1 ELSE P = P 
- 7 

100 IF RND > .35 THEN Q = Q + 1 ELSE Q = Q 
- | 

110 IF Q<1 THEN Q = 1 

120 IF Q510 THEN Q = 10 

130 IF P<1 THEN P = 1 

140 IF P>10 THEN P = 10 

150 M=M + f 

160 LOCATE 3, 1 

170 PRINT TAB(20);"Attempt #"M" "fF 

180 A(P,Q) = 127 

190 LOCATE 7,20 

200 FOR X = 1 TO 10 





M 








210 FOR Y 1 TO 10 
220 PRINT CHR$(A(X,Y));" "5 
230 NEXT Y 


240 PRINT:PRINT TAB(20); 

250 SOUND 37 + X#®Y,.5 

260 NEXT X 

270 A(P,Q) = 46 

280 WEND 

290 GOTO 370 

300 Q = INTC RND#3) + 4 

310 P = INT(RND*#3) + 4 

320 FOR X = 1 TO 10 

330 FOR Y = 1 TO 10 

340 A(X,Y) = 254 

350 NEXT Y,X 

360 RETURN 

370 PRINT: PRINT 

380 PRINT TAB(20);"Whew...free at last!" 
390 FOR T = 1 TO 3000:NEXT T 
400 RUN 




















CHAPTER FOURTEEN 


Time to Relax 


You’ve been working pretty hard, and you've really earned a break. 
Therefore this final chapter will have nothing in it to study. Instead 
you ll just find three games to play with and against your IBM PC. The 
programs won't take you long to enter, and are a lot of fun to play. 


CITY BOMBER 


In this first program, based on one written by Paul Toland, your 
plane’s engine has stopped as you are flying over a large city. Your alti- 
tude is decreasing rapidly, and your only hope of landing in one piece 1s 
to flatten the city with your bombs. Due to a fault in your missile track- 
ing system, only one bomb can be in the air at any one time. 

You drop your bomb by pressing the F key. 

A word of warning: This is an extremely difficult game to play. 
You'll have a great deal of trouble managing to win it, but you'll have a 
lot of fun trying. 

Note how this program uses the SCREEN function to detect the top 
of the building—for both the falling bomb and your plane. 


10 REM city bomber 

20 GOSUB 340 

30 COLOR 0,7 

“HO FOR Z = 22 TO 51 

50 FOR J = 21 TO 14 + RND*#10 STEP -1 
60 LOCATE J,Z:PRINT CHR$(203) 

TO NEXT J 

80 NEXT Z 

90 COLOR 7,0 
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100 X = 21:Y = 4 

110 BY = =-1: BX = 21 

120 LOCATE Y,X:PRINT " * 

130 X = XK + 17 

140 IF X = 52 THEN Y = Y + 1:X = 21:3IF Y 
- 25 THEN 320 

150 Q = SCREEN(Y,X) 

160 IF Q = 203 THEN 320 

170 LOCATE Y,X:PRINT CHR$(16) 

180 W$ = INKEY$ 

190 IF (W$ = "F" OR W$ = "f") AND BY = = 
1 THEN BY Y:BX = X 

200 IF BY -1 THEN SOUND 404+RND®9,.5:GO 

TO 120 

210 LOCATE BY,BX:PRINT " "* 

220 BY = BY + 1 

230 IF BY = 22 THEN BY = -1:GOTO 120 

240 Q = SCREEN( BY, BX) 

250 LOCATE BY,BX 

260 IF Q <> 32 THEN PRINT " ":BY = =-1:S0 

UND 900,.5:SOUND 300,.5:SOUND 800,.5:GOT 
O 120 

270 PRINT CHR$(25):SOUND 40 + RND#®20,.5 

280 GOTO 120 

290 LOCATE 24,51: PRINT CHR$(16) 

300 LOCATE 3,21:PRINT "Congratulations, 
you made it"® 

310 GOTO 330 

320 LOCATE Y,X:COLOR 0,7:PRINT CHR$(16): 

LOCATE 3,15:PRINT "You crashed and are n 

Ow part of the city skyline":SOUND 3000, 

6:SOUND 2000,5:SOUND 1000,4 

330 COLOR 7,0:LOCATE 22,1:FOR Z = 1 TO 3 


:FOR T = 1000 TO 5000 STEP 500:SOUND T,1 
: NEXT: NEXT: END 


340 REM initialise 
350 CLS 

360 DEFINT A - Z 
370 KEY OFF 


380 RANDOMIZE VAL(RIGHT$(TIME$,2)) 
390 FOR Z = 1 TO 4:FOR T = 1000 TO 5000 


STEP 500:SOUND T,1: NEXT: NEXT 
400 RETURN 





BAGATELLE 


This is a simplified pinball machine in which you and the computer 
take turns rolling balls down a frame which contains a series of letters 
and numbers. Your score tends to increase each time you hit an obstacle 
on the way down the frame, and the ball will bounce off the obstacle, in- 
creasing your chances of hitting more obstacles. 

If you look at the sample printouts, you'll see the numbers 1 to 9 at 
the top of the frame (by the way, the whole thing looks much more im- 
pressive on the screen—using inverse for the whole frame—than it does 


in this printout). You start your ball rolling down the frame from any one 
of these numbers. 





123456789 


a) 
oun 
2 


Human 2025 


N 
x 
Ni 
x 
NJ 


Machine 93e 


NW 
WN 
NW 
NW 








NE RRR RSNA 
“NN 
“WN 
“N 
“NJ 
NERS SRN 


I will start with 4 


You and the IBM PC have five balls each to roll down the bagatelle 


down the frame. 
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10 REM Bagatelle 

20 GOSUB 610 

30 GOSUB 410 

40 FOR Y = 1 TO 5 

50 FOR X = 1 TO 2 

60 LOCATE 14,46 

70 IF X = 2 THEN PRINT Y;" Me *" ELSE PRI 
NT Ys"You * 

80 IF X = 1 THEN LOCATE 21,19: INPUT "Whi 
ch number to start with ";K:IF K<1 OR K> 
9 THEN 80 

90 IF X = 2 THEN LOCATE 21,19:K = INT(RN 
D#6) + 1:PRINT "I will start with"K:FOR 
T = 100 TO 135:SOUND T,.5:NEXT T 

100 LOCATE 21,19:PRINT STRING$(30," ") 
110 LOCATE 1,22+K:PRINT K:FOR T = 1000 T 
O 1005:SOUND T,.5:NEXT T 








120 BA = K + 23: EBA = BA 
130 BD = 1:EBD = 1 

140 IA = 1 

150 ID = 1 


160 LOCATE EBD,EBA:PRINT " "% 


170 EBD = BD:EBA <= BA 

180 LOCATE BD,BA:PRINT "#" 
190 FLAG = QO 

200 A = SCREEN( BD+1, BA) 


210 IF A <> 32 THEN C(X) 
= 1:GOTO 260 

220 A = SCREEN(BD, BA+1) 

230 IF A <> 32 THEN C(X) = C(X) + A:FLAG 
= 1:GOTO 260 

240 A = SCREEN(BD, BA-1) 

250 IF A <> 32 THEN C(X) = C(X) + A:FLAG 
= | 

260 IF FLAG = 1 THEN SOUND 500,.5:IF RND 


C(X) + A:FLAG 


< .3 THEN IA = = IA:ID = = ID 
270 IF A = 47 THEN C(X) = C(X) = AT:A = 
32 


280 LOCATE 4,46:PRINT C(1):LOCATE 6,46:P 
RINT C(2) 


290 BD = BD + (ID*®RND) + .75 


300 IF BA < 23 THEN IA = -IA:BA = 25 
310 IF BD < 1 THEN ID = -ID:BD = 3 
320 IF BA > 35 THEN IA = -IA:BA = 33 


330 BA = BA + (IA*RND) 

340 IF BD < 19 THEN 160 

350 FOR G = 1500 TO 2000 STEP 35:SOUND G 
»»-5:3:NEXT G 

360 GOSUB 410 

370 NEXT: NEXT 

380 LOCATE 14,38:PRINT "The winner is 
":LOCATE 16,39 

390 IF C(1) < C(2) THEN PRINT "the machi 

ne" ELSE PRINT "the human"®" 

400 END 

410 LOCATE 4,41:PRINT "Human"C(1) 

420 LOCATE 6,39:PRINT "Machine"C(2) 

430 LOCATE 14,39:PRINT "Ball #" 

44HO LOCATE 1,21:COLOR 0,7:PRINT " 1234 

56789 ” 

450 FOR Q = 1 TO 19 

460 LOCATE Q,21:PRINT "/*" 

470 LOCATE Q,36:PRINT "/" 

480 NEXT Q 

490 LOCATE 18,21:PRINT "S/S//S/////// 0/001 
VT 








500 LOCATE 19,21:PRINT "S//S////////////0/ 


510 COLOR 7,0 

520 LOCATE 3,25:PRINT "1 1 1" 
530 LOCATE 5,24:PRINT "Z X Z X 2" 
540 LOCATE 7,24:PRINT "7 7 7 7" 
550 LOCATE 9,25:PRINT "7 7 7 7" 
560 LOCATE 11,24:PRINT "5 5 5 5” 
570 LOCATE 14,25:PRINT "9 9 g" 
580 LOCATE 16,24:PRINT "8 8 88 
590 RETURN 

600 END 

610 REM initialise 

620 KEY OFF 

630 CLS 

640 DEFINT A = Z 

650 RANDOMIZE VAL(RIGHT$(TIME$,2) ) 
660 RETURN 





DAVY JONES’ LOCKER 


The final program in this chapter is a simple dice game—FULL 
FATHOM FIFTY. The program uses two arrays (B and D), which we 


studied in the previous chapter, to store the players’ scores and dice rolls 
respectively. 

It is an easy game. You and the computer are in a race to roll a total 
of 40 or more. You roll two dice at once, but the only time you score is 
when both dice come up with the same number. When they do, you'll get 
three times the value of one of the dice added to your growing score. 

You should know enough about how programs work at this stage to 
be able to determine what each section does, so I won’t bother explaining 
this relatively simple program. 

Get it up and running and then work out for yourself how each sec- 
tion works. You'll possibly gain more from the program by working it out 
yourself than having it explained in detail by me. 


Here’s the listing, then, of FULL FATHOM FIFTY, which ends this 
chapter. 


10 REM FULL FATHOM FIFTY 

20 RANDOMIZE VAL (RIGHT$(TIME$,2) } 
30 KEY OFF 

4O CLS 

50 ROUND = 1 








60 FOR A = 1 TO 2 


TO LOCATE 5,14:COLOR 15,0:PRINT "Full Fa 
thom Fifty" 


80 LOCATE 18,15:COLOR 15,0:PRINT "Round 

number" ROUND 

90 LOCATE 8,17:PRINT"IBM PC"B(1) 

100 LOCATE 11,17:PRINT "Human"B(2) 

110 IF B(1) > 39 OR B(2) > 39 THEN 350 

120 LOCATE 14,12 

130 IF A = 1 THEN PRINT "I'1]1 now roll t 

he dice ":;GOTO 180 

140 PRINT "Press 'R' to roll the dice" 

150 IF INKEY$ = "" THEN SOUND RND*®1000 + 
100,.5:GOTO 150 

160 LOCATE 14,12 

170 PRINT * ” 
180 FOR C = 1 TO 2 

190 LOCATE 1,1:PRINT "Rolling die"C 


200 LOCATE 1,14:PRINT STRING$(34,CHR$(21 
9)):FOR Q = 1 TO 200:NEXT Q 
210 D(C) INT(RND#6) + 1 
220 IF C 2 AND RND >.7 THEN D(2) = D(1 
) 
230 LOCATE 1,35:PRINT "It came up"D(C) 
240 FOR Q = 1 TO 1000:NEXT Q 
250 LOCATE 1,1:PRINT STRING$(47,CHR$(219 
))}:FOR Q = 1 TO 200:NEXT Q 
260 NEXT C 
270 LOCATE 1,1:PRINT STRING$(47," ") 
280 IF D(1) <> D(2) THEN LOCATE 14,12:PR 
INT "Those rolls do not count® 
290 IF D(1) = D(2) THEN B(A) = BCA) + 3* 
D(1):LOCATE 14,12:PRINT " The roll was"D 
(1)"and"D(1) 
300 FOR Q = 1 TO 1500:NEXT Q 
310 NEXT A 
320 ROUND = ROUND + 1 

= 1 TO 1000:NEXT Q 















350 LOCATE 20,1:PRINT "The winner is the 
fF o 


9 
360 IF B(1) < B(2) THEN PRINT * human*® 
370 IF B(1) > B(2) THEN PRINT * IBM PC® 





And here’s what it looks like in action: 


Rolling die 2g tt ocame up 5 


Full Fathom Fifty 


IBM PC 3 


Human O 


Round number 7 


Rolling die \quuuenupepeeurpepeepe tt came up 5 


Full Fathom Fifty 


IBM PC 3 


Human 0 


I'll now roll the dice 


Round number 2 


Full Fathom Fifty 


IBM PC 42 
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Human 33 


The roll was 3 and 3 


Round number 14 


The winner is the IBM PC 
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Appendices 


Using Math 


Here is a summary of the major mathematical symbols on the IBM PC: 





Usual Computer 
symbol symbol: 
+ (plus) + 

— (minus) — 

x (multiply) ” 

- (divide) / 

m® mn 


The mathematical functions include: 


Computer Meaning: 


word: 

ATN Arctangent 

SIN Sine 

COS Cosine 

TAN Tangent 

INT Reduce to next lowest whole number 

SGN Sign (returns — 1 if negative, 0 if zero, 1 if positive) 
ABS Returns number without its sign (so ABS (-—5) is 5) 
SQR Square root 

LN Natural log 
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Taking Care of Disks 


There are a few common-sense rules for looking after your disks, 
which will ensure you get the maximum value out of them. It will also 
reduce the change of losing valuable data through damage to a disk. 

If anything happens to the disk—such as it getting bent or having 
something spilled on the cardboard cover (and not on the disk itself)— 
repair the damage as best you can, and make a copy of the disk immedi- 
ately. Then discard the original disk. 

If you put a contaminated disk in the drive, you run the risk of dam- 
aging the read/write head. 

Don’t touch the part of the disk which shows through the slot in the 
outer cover, and don’t put anything (such as cups of coffee, ashtrays or 
heavy objects like books) on top of either a disk, or the cardboard cover. 

Magnetism can corrupt data on a disk. If you have anything which 
is, or could be, magnetized (such as a radio speaker, a pair of scissors, a 
telephone handset) keep it well away from your disks. 

Disks, as I guess you've realized by now, are pretty sensitive crea- 
tures. They don’t like heat too much, so leaving them inside a car can 
cause problems. (Disks work best in the range 50°F to 125°F, 10°C to 
51°C; if your disk is exposed to temperatures outside this range, leave it 
for at least half an hour to adjust to room temperature before putting it 
in the disk drive.) You should never bend disks, or use rubber bands, ad- 
hesive tape, or paper clips on them. 

If you want to write on the cardboard outer sleeve, take the disk out 
first. Write on the label which is stuck onto the disk itself before you 
stick it on. If you have to add something later, write gently, and with a 
felt-tipped pen. Do not use a ball-point pen or sharp pencil. 


Glossary of Computer Words 


Address - a number which refers to a location, generally in the comput- 
er’s memory, where information is stored 


Algorithm - the sequence of steps used to solve a problem 


Alphanumeric - generally used to describe a keyboard, and signifying 
that the keyboard has alphabetical and numerical keys. A numeric key- 
pad, by contrast, only has keys for the digits 1 to 9, with some additional 
keys for arithmetic operations, much like a calculator 


APL - this stands for Automatic Programming Language, a language de- 
veloped by Iverson in the early 1960s, which supports a large set of oper- 
ators and data structures. It uses a nonstandard set of characters 


Application software - these are programs which are tailored for a specif- 
ic task, such as word processing, or to handle mailing lists 
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ASCII - stands for American Standard Code for Information Exchange. 
This is an almost universal code for letters, numbers, and symbols, which 
has a number between 0 and 255 assigned to each of these, such as 65 for 
the letter A 


Assembler - this is a program which converts another program written in 
an assembly language (which is a computer program in which a single 
instruction, such as ADD, converts into a single instruction for the com- 
puter) into the language the computer uses directly 


BASIC - stands for Beginner’s All-purpose Symbolic Instruction Code, 
the most common language used on microcomputers. It 1s easy to learn, 
with many of its statements being very close to English 


Batch - a group of transactions which are to be processed by a computer 
in one lot, without interruption by an operator 


Baud - a measure of the speed of transfer of data. It generally stands for 
the number of bits (discrete units of information) per second 


Benchmark - a test which is used to measure some aspect of the perfor- 
mance of a computer, which can be compared to the result of running a 
similar test on a different computer 


Binary - a system of counting in which there are only two symbols, 0 and 
1 (as opposed to the ordinary decimal system, in which there are ten sym- 
bols, 0, 1, 2, 3, 4, 5, 6, 7, 8 and 9). Your computer “thinks” in binary 


Boolean Algebra - the algebra of decision-making and logic, developed by 
English mathematician George Boole, and at the heart of your comput- 
er’s ability to make decisions 


Bootstrap - a program, run into the computer when it is first turned on, 
which puts the computer into the state where it can accept and under- 
stand other programs 


Buffer - a storage mechanism which holds input from a device such as 
keyboard, then releases it at a rate which the computer dictates 


Bug - an error in a program 


Bus - a group of electrical connections used to link a computer with an 
ancillary device, or another computer 


Byte - the smallest group of bits (see bit) which makes up a computer 
word. Generally a computer is described as being “eight bit” or “16 bit,” 
meaning the word consists of a combination of eight or sixteen zeros or 
ones 


Central Processing Unit (CPU) - the heart of the computer, where arith- 
metic, logic, and control functions are carried out 


Character code - the number in ASCII (see ASCII) which refers to a par- 
ticular symbol, such as 32 for a space and 65 for the letter “A” 


COBOL - stands for Common Business Oriented Language, a standard 
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programming language, close to English, which is used primarily for 
business 


Compiler - a program which translates a program written in a high level 
(human-like) language into a machine language which the computer un- 
derstands directly 


Concatenate - to add (adding two strings together is known as “concat- 
enation”) 


CP/M - stands for Control Program/Microcomputer, an almost universal 
disk operating system developed and marketed by Digital Research, Pa- 
cific Grove, California 


Data - a general term for information processed by a computer 


Database - a collection of data organized to permit rapid access by com- 
puter 


Debug - to remove bugs (errors) from a program 


Disk - a magnetic storage medium (further described as a “hard disk,” 
“floppy disk,” or even “floppy”) used to store computer information and 
programs. The disks resemble, to a limited extent, 45 rpm sound records, 
and are generally eight, five and a quarter, or three inches in diameter. 
Smaller “microdisks” are also available for some systems 


Documentation - the written instructions and explanations which accom- 
pany a program 


DOS - stands for Disk Operating System (and generally pronounced 
“doss”), the versatile program which allows a computer to control a disk 
system 


Dot-matrix printer - a printer which forms the letters and symbols by a 
collection of dots, usually on an eight by eight, or seven by five, grid 


Double-density - adjective used to describe disks when recorded using a 
special technique which, as the name suggests, doubles the amount of 
storage the disk can provide 


Dynamic memory - computer memory which requires constant recharg- 
ing to retain its contents 


EPROM - stands for Erasable Programmable Read Only Memory, a de- 
vice which contains computer information in a semipermanent form, de- 
manding sustained exposure to ultraviolet light to erase its contents 


Error messages - information from the computer to the user, sometimes 
consisting only cof numbers or a few letters, but generally of a phrase 
(such as “Out of memory”) which points out a programming or operation- 
al error which has caused the computer to halt program executions 


Field - a collection of characters which form a distinct group, such as an 
identifying code, a name or a date; a field is generally part of a record 
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File - a group of related records which are processed together, such as an 
inventory file or a student file 


Firmware - the solid components of a computer system are often called 
the hardware, the programs, in machine-readable form on disk or cas- 
sette, are called the software, and programs which are hard-wired into a 
circuit, are called “firmware.” Firmware can be altered, to a limited ex- 
tent, by software in some circumstances 


Flag - this is an indicator within a program, with the “state of the flag” 
(i.e., the value it holds) giving information regarding a particular condi- 
tion 


Floppy disk - see “disk” 


Flowchart - a written layout of: program structure and flow, using vari- 
ous shapes, such as a rectangle with sloping sides for a computer action, 
and a diamond for a computer decision, is called a flowchart. A flowchart 
is generally written before any lines of program are entered into the com- 
puter 


FORTRAN - a high-level computer language, generally used for scientif- 
ic work (from FORmula TRANSslation) 


Gate - a computer “component” which makes decisions, allowing the cir- 
cuit to flow in one direction or another, depending on the conditions to be 
satisfied 


GIGO - acronym for “Garbage In Garbage Out,” suggesting that if rub- 
bish or wrong data is fed into a computer, the result of its processing of 
such data (the output) must also be rubbish 


Global - a set of conditions which affects the entire program is called 
“global,” as opposed to “local” 


Graphics - a term for any output of computer which is not alphanumeric 
or symbolic 


Hard copy - information dumped to paper by a printer 
Hardware - the solid parts of the computer (see software and firmware) 


Hexadecimal - a counting system much beloved by machine code pro- 
grammers because it is closely related to the number storage methods 
used by computers, based on the number 16, as opposed to our “ordinary” 
number system, which is based on 10 


Hex pad - a keyboard, somewhat like a calculator, which is used for di- 
rect entry of hexadecimal numbers 


High-level languages - programming languages which are close to En- 
glish. Low-level languages are closer to those which the computer under- 
stands. Because high-level languages have to be compiled into a form 
which the computer can understand before they are processed, high-level 
languages run more slowly than do their low-level counterparts 
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Input - any information which is fed into a program during execution 


VO - stands for Input/Output port, a device the computer uses to commu- 
nicate with the outside world 


Instruction - an element of programming code, which tells the computer 
to carry out a specific task. An instruction in assembly language, for ex- 
ample, is ADD, which (as you’ve probably guessed) tells the computer to 
carry out an addition 


Interpreter - converts the high-level (“human-understandable”) pro- 
grams into a form which the computer can understand 


Joystick - an analog device which feeds signals into a computer which is 
related to the position which the joystick is occupying; generally used in 
games programs 


Kilobyte - the unit of language measurement; one kilobyte (generally ab- 
breviated as K) equals 1024 bits (see bit) 


Line printer - a printer which prints a complete line of characters at one 
time 


Low-level language - a language which is close to that used within the 
computer (see high-level language) 





Machine language - the step below a low-level language; the language 
which the computer understands directly 


Mainframe - the term for “giant” computers such as the IBM 370. Com- 
puters are also classified as minicomputers and microcomputers (such as 
the computer you own) 


Memory - the device or devices used by a computer to hold information 
and programs being currently processed, and for the instruction set fixed 
within a computer which tells it how to carry out the demands of the pro- 
gram. There are basically two types of memory (see RAM and ROM) 


Microprocessor - the “chip” which lies at the heart of your computer. This 
does the “thinking” 


Modem - stands for MOdulator/DEModulator, a device which allows one 
computer to communicate with another via the telephone 





Monitor - (a) a dedicated television screen for use as a computer display 
unit, containing no tuning apparatus; (b) the information within a com- 
puter which enables it to understand and execute program instructions 


Motherboard - a unit, generally external, which has slots to allow addi- 
tional “boards” (circuits) to be plugged into the computer to provide facil- 
ities (such as high-resolution graphics, or “robot control”) which are not 
provided with the standard machine 


Mouse - a control unit, slightly smaller than a box of cigarettes, which is 
rolled over the desk, moving an on-screen cursor in parallel to select op- 
tions and make decisions within a program. “Mouses” work either by 
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sensing the action of their wheels, or by reading a grid pattern on the 
surface upon which they are moved 


Network - a group of computers working in tandem 


Numeric pad - device primarily for entering numeric information into a 
computer, similar to a calculator 


Octal - a numbering system based on 8 (using the digits 0, 1, 2, 3, 4, 5, 6, 
and 7) 


On-line - device which is under the direct control of the computer 


Operating system - this is the “big boss” program or series of programs 
within the computer which controls the computer’s operation, doing such 
things as calling up routines when they are needed and assigning prior1- 
ties 

Output - any data produced by the computer while it is processing, 
whether this data is displayed on the screen or dumped to the printer, or 
is used internally 


PASCAL - a high-level language, developed in the late 1960s by Niklaus 
Wirth, which encourages disciplined, structured programming 








Port - an output or input “hole” in the computer, through which data are 
transferred 


Program - the series of instructions which the computer follows to carry 
out a predetermined task 


PILOT - a high-level language, generally used to develop computer pro- 
grams for education 


RAM - stands for Random Access Memory, the memory on board the 
computer which holds the current program. The contents of RAM can be 
changed, while the contents of ROM (Read Only Memory) cannot be 
changed under software control 


Real time - when a computer event is progressing in line with time in the 
“real world,” the event is said to be occurring in real time. An example 
would be a program which showed the development of a colony of bacte- 
ria which developed at the same rate that such a real colony would devel- 
op. Many games, which require reactions in real time, have been 
developed. Most “arcade action” programs occur in real time 


Refresh - the contents of dynamic memories (see memory) must receive 
periodic bursts of power in order for them to maintain their contents. The 
signal which “reminds” the memory of its contents is called the refresh 
signal | 


Register - a location in computer memory which holds data 


Reset - a signal which returns the computer to the point it was in when 
first turned on 
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ROM - see RAM 


RS-232 - a standard serial interface (defined by the Electronic Industries 
Association) which connects a modem and associated terminal equip- 
ment to a computer 


S-100 bus - this is also a standard interface (see RS-232) made up of 100 
parallel common communication lines which are used to connect circuit 
boards within microcomputers 


SNOBOL - a high-level language, developed by Bell Laboratories, which 
uses pattern recognition and string manipulation 


Software - the program which the computer follows (see firmware) 


Stack - the end point of a series of events which are accessed on a last in, 
first out basis 


Subroutine - a block of code, or program, which is called up a number of 
times within another program 


Syntax - as in human languages, the syntax is the structure rules which 
govern the use of a computer language 


Systems software - sections of code which carry out administrative tasks, 
or assist with the writing of other programs, but which are not actually 
used to carry out the computer’s final task 


Thermal printer - a device which prints the output from the computer on 
heat-sensitive paper. Although thermal printers are quieter than other 
printers, the output is not always easy to read, nor is the paper used easy 
to store 


Time-sharing - this term is used to refer to a large number of users, on 
independent terminals, making use of a single computer, which divides 
its time between the users in such a way that each of them appears to 
have the “full attention” of the computer 


Turnkey system - a computer system (generally for business use) which 
is ready to run when delivered, needing only the “turn of a key” to get it 
working 


Volatile memory - a memory device which loses its contents when the 
power supply is cut off (see memory, refresh, ROM, and RAM) 


Word processor - a dedicated computer (or a computer operating a word 
processing program) which gives access to an “intelligent typewriter” 
with a large range of correction and adjustment features 
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TIM HARTINELL TAKES THE BYTE 
OUT OF COMPUTER PROGRAMMING 


Now you can learn to program your IBM PC in a matter of hours. 
Tim Hartnell takes you by the hand and leads you step-by-step 
in this complete guide for the first-time programmer. 


You start to program your IBM PC by writing and playing games, 
so you have fun while youre learning. 


In Chapter One, youll learn how to run your disk operating 
system, save, name, and erase programs, and copy disks. 


By the end of Chapter Three, youll run your first program and 
take control of your screen and printer. 


You go on to read, write, and compare data, to program 
complex mathematical functions, and use sound and graphics 


to enhance your programs. 


Finally, youll be able to create your own programs and change 
existing ones. 


Through dozens of game programs—including solitaire, pinball, 
and Go—Tim Hartnell helps you understand, enjoy, and feel 
comfortable with your computer. 




















316 


6 1 
70999°00695 | | 


ISBN O-345-31b61-4 





